http://rapidshare.com/files/1928132019/usablesets.pas
Sziasztok!
A fönti link egy pascalos unit kódja, amit Free Pascallal lefordítva, programjaitokban a 'uses' foglalt szó után megadva használhattok. Lazarusban fordítani sem kell.
A unit tartalmilag egy kiterjesztett halmazt tartalmaz, amivel több műveletet végezhetünk, mint az alap pascalos halmazokkal. A típus neve TUsableset, ez egy karakterhalmaz, a metódusai pedig a következők:
- init0: eljárás, előkészíti üresre a halmazt
- init(nev:String): eljárás, a nev nevű szövegfájl (pl. 'data.txt') értékeivel állítja elő a halmazt
- putelement(element:Char): eljárás, element nevű karaktert beteszi a halmazba
- putset(uset:Tusableset): eljárás, a uset nevű halmazt teljesen beleolvasztja a halmazba
- pullelement(element:Char): eljárás, kiveszi elementet a halmazból
- pullset(uset:TUsableset): eljárás, a putset fordítottja
- randomoneelement: Char típusú függvény, a halmazból kiválaszt egy értéket, és azzal tér vissza; közben törli a halmazból a többi elemet
- convertset: eljárás, elkészít egy, a halmaz elemeit tartalmazó tömböt (amihez egy későbbi függvénnyel lehet hozzáférni)
- getlength: byte típusú függvény, a halmaz elemeinek számával tér vissza
- getset: függvény, magával a konkrét halmazzal tér vissza
- roeneg: char típusú függvény; ugyanaz, mint a randomoneelement, csak nem törli a többi elemet, hanem éppen a többit tartja meg
- getord: függvény, a convertset kapcsán emlegetett tömbbel tér vissza
2colours
