Tlist, pridavanie

Zdravicko, mam taky problem. Som v tomto smere dost neskuseny. Mam tabulku do ktorej sa pridavaju postupne riadky. Pri kazdom pridani riadka som to chcem niekde ulozit. Ta tabulka je patri do suboru viacerych zaznamov.

Tak som si spravil najprv maticu. Zistil som ze je to blbost. Potom som to riesil cez dinamicke pole zaznamov a pri kazdom pridani riadka som zvacsil pole o 1 riadok. Aj to bola riadna blbost pretoze pri kazdom zvacseni sa obsah vymazal. Niekolko ludi na forach zistilo to iste co ja a bolo im odporucene pouzit Tlist. Tak som to spravil aj ja.



No pekne... ono to nefunguje. Neje mozne trepem si hlavu do stola. Neviem co je to pointer. Chyba: Incompatible types riadok and Pointer

Úprava:



Takže najprv k chybám: Skôr, ako začneš pracovať s triedou TList, musíš najprv vytvoriť jej inštanciu, tak ako aj v každej inej triede -> List:= TList.Create.


Z tejto definíce vyplýva, že TList sa používa na uloženie pointerov (adries premenných). Preto má byť správne ako parameter v Add @riadok (operátor @ pred premennou znamená, že sa má použiť adresa premennej, nie jej hodnota). Jednotlivé položky - itemy - TListu sa začínajú číslovať od 0 vyššie, teda prvý záznam má hodnotu 0 (Items[0]). Potom ak potrebuješ načítať premenné z TListu, je nutné z neho priradiť adresu (pretože TList obsahuje iba adresy premenných) do premennej deklarovanej ako pointer. A až s touto premennou môžeš pracovať, teda vypisovať, meniť, atď.

No a teraz, čo je to ten pointer. Niečo už bolo riešene v tejto téme a v tejto téme. A ešte pár definícií na programujte.com

Diki za vysvetlenie, uz viem zhruba co su pointery. Moj problem to teda nevyriesilo, ked su v Tliste iba odkazy. Ja robim nieco take.

No a potom nejaka taka funkcia ze po kazdom pridani riadka do tabulky

No a to prida len odkaz na premennu riadok. Samotnu hodnotu nemam. Ale ja ju potrebujem, potrebujem potom ulozit kazdu jednu hodnotu z tabulky do suboru File of Tskupina, potom ju podla potreby nacitat a zasa s hodnotami pracovat. Tych riadkov je tam plno. Mohol by som to spravit takto:

Vedel by som potom jednoducho ulozit tabulku nacitat jednoducho celu tabulku a vsetko mozne. Ale to je hlupe ze mam vymedzene v pamati urcity pocet riadkov, co ak budem potrebovat viac? alebo ked budem chciet mazat riadky. Viem ze Tlist to ma spravene jednoducho, mazanie riadkov aj vymienanie riadkov. Ale zasa nechapem ako s Tlistom mozem ukladat hodnoty ked su tam len tie pointery, po uzavreti formulara sa hodnoty z tabulky vymazu a tie pointery co...

Moment, toto máš zle:



konkrétne to TList.Create a skupina.list.free. Pretože vždy, keď do TListu niečo uložíš, potom ho cez free uvoľníš z pamäte a tým sa všetko zmaže. Do OnCreate Formulára si daj skupina.list:=Tlist.Create a do OnDestroy formulára skupina.list.free. Týmto zamedzíš vymazávaniu TListu (vymaže sa až po zrušení hlavného formulára).

K tvojmu problému: Prečo by to neriešilo tvoj problém? Veď áno, do Tlistu ukladáš iba adresy, lenže tieto adresy priradíš nejakej premennej (deklarovanej ako pointer na daný typ) a cez túto premennú pristupuješ k hodnotám, ktoré boli do tohto listu vložené.
O tomto vravím. Tým, že máš adresu premennej, nemáš jej hodnotu, ale poznáš miesto, kde máš túto hodnotu hľadať - poznaš adresu premennej, ktorá obsauje tieto dáta, ktoré potrebuješ. To znamená, že pointer (na daný typ premennej, ktorý vložíš do TListu) nasmeruješ na túto hodnotu (ktorú načítaš z TListu) a potom pomocou operátora ^ pracuješ akokeby priamo s touto premennou. V tom spočíva význam používania pointerov. Neviem ti to už viac vysvetliť, skús si pozhánať nejaké materiály na pointery (ukazatele, smerníky - sú to synonymá) a snáď ti to trocha pomôže. Ale v každom prípade si myslím, že pomocou TListu sa dá tvoj problém riešiť

Ked pridam nieco do Tlistu, nejaky objekt, napr. ten Triadok. Tak ze list.add(@riadok); a potom zmenim riadok:='nieco ine'; zmeni sa aj prislusne list.items[I]? a ked mam zo 1000 tych zaznamov, staci mi 1000 list.items(ov) alebo potrebujem aj 1000 premennych riadok.

Pokúsim sa ti vysvetliť teóriu poiterov na obrázku:



(ten obrázok je len ilustračný, značne zjednodušený, adresy sú v skutočnosti 32 bitové - v 32. bitovom operačnom systéme - teda zaberajú v pamäti stále 4 bajty. Adresa nasledujúcej premennej začína na adrese tejto premennej + veľkosť tejto premennej. Na tomto obrázku som dal iba čislice 1, 2, ... aby si to ľahšie pochopil. Ale v skutočnosti to v pamäti VIZERÁ INAK !)

Takže pozri sa na tento obrázok. Máme dve premenné: uk: ^integer a x: integer. Uk ukazuje na premennú x, teda nesie jej adresu. Priradenie adresy uskutočníš takto:

Teraz ak vykonáš toto:

v oboch správach sa ti zobrazí 100. A potom, ak vykonáš toto:

opäť dostaneš rovnaké číslo, ale tentoraz 60.
Teraz už máš lepšiu predstavu, ako pointer funguje?

//EDIT


Ak zmeníš premennú, ktorej adresu si uložil do TListu, zmena bude aj keď s touto adresou budeš neskôr chcieť pracovať. Teda nemal by si meniť premennú, ktorú vkladáš do TListu.

Noo ja pointery uz celkom chapem. Aj tak nemam to co chcem, mam to spravene takto.


no tak akekolvek bude I, vypyse mi furt rovnaku hodnotu pretoze mam tam plno odkazov na ten isty meteor. Ale to ja nechcem samozrejme. Ja chcem normalne si zvolim I a vypise mi prislusny riadok ako je v tabulke zadane. Viem ze to robim zle... preto sa pytam ako sa to robi spravne?

No, v kóde si neuviedol, ako máš deklarovanú premennú linkedmeteor, ale ak je ^TRiadok, tak je to správne. Ďalej nerobí sa to list[i], ale:

Zbytok vyzerá OK, tak to skús upraviť a napíš, či to teraz funguje správne.

som sa pomilil s tym linkedmeteor, je to vlastne linkedriadok. A akekolvek I v list.items[I] mam linkedriadok ma furt rovnaku hodnotu. Asi som uz strateny

No ona je rovnaká, pretože sa kukni do procedúry InputAdded:

Máš tu stále rovnakú hodnotu Do TListu musíš dávať viac premenných (pre každý údaj jedna premenná, keďže sa pracuje s adresami a teda s premennými samotnými, nie s ich hodnotami). Najideálnejšie je asi použiť pole a potom:

Skús to ešte takto.

no dobre ak chcem pridat 1000 udajov do TList potrebujem aj 1000 premennych? tak to vizera ako riadna blbost. Spravim si pole tych premennych, a kolko pamate mam tomu polu vymedzit ([1..1000]Co ak tabulka bude mat 300 zaznamov potom mam 700 zbytocnych, a co ak bude mat viac nez 1000? co potom)? zasa som na zaciatku. To mozem pole pouzit rovno a nemusim mat ziaden Tlist. Dynamicke pole by to riesilo. Ale zasa ono to je dost blbe ked ti po kazdom zvacseni pola vymaze zaznamy. Jednoducho je TList idealny pripoji ti premennu na koniec zoznamu okamzite ti zvacsi pole, a su tam procedury exchange a delete ktore jednoducho vymienaju a mazu riadky (inak by clovek musel posuvat cely obsah) lenze... su tam len pointre. A predstav si ze Tlist ulozim na disk premenne v pamati sa vymazu ked ukoncim program a subor znova nacitam nemam z toho nic.

Tak neviem teda. Skús použiť dynamické polia (premenná riadok bude toto dynamické pole) spolu s TListom, v ktorom budú ukazatele na prvky tohoto poľa. A čo sa týka ukladania do súboru, tak ulož hodnoty poľa, nie TListu. A po opätovnom spustení programu pri jeho inicializácii zistíš, koľko hodnot je v súbore, podľa toho alokuješ dynamické pole a po jeho vyplnení hodnotami zo súbrou ešte tieto hodnoty (respektíve adresy prvkov poľa) vložíš do TListu.

no tak to nemusim pouzivat Tlist vobec... ked aj tak mam jedno dinamicke pole ktore ukladam a mozem do neho veselo ukladat aj nacitavat, naco mi je tam este tlist?Akoze ukladat tabulka->dinamicke pole->tlist potom pracovat s Tlistom a ukladat dynamicke pole a pri nacitani zasa dinamicke pole-> Tlist -> tabulka, zbytocne to potom hlti pamat a robi kod zlozitejsim, ked mozem v pohode tabulka-> Dpole a rovno pracovat s polom ukladat a zasa nacitat Dpole ->tabulka

som tam kde som bol na ziaciatku musim nieco skusit

Ešte je jedno riešienie Ak potrebuješ ukladať iba hodnoty typu string, môžeš vymeniť TList (ktorý pracuje s pointrami, teda premennými) za TStringList (ktorý pracuje s hodnotami - tzn, starý údaj premennej sa môže prepísať). Pracuje sa s ním veľmi podobne, ako s TList.

myslim ze uz som to vyriesil... mam 10 stlpcov tabulky ich pocet sa nemeni, co tak spravit zaznam pozostavajuci z 10tich TStringListov skusoim to spravit takto