Miten tuota TList pitäisi käyttää (kokemusta lähinnä taulukoista)
Miten sillä tuodaan olion sisältä dataa?
Miten sillä viedään olion sisälle dataa?
Löytyisikö seimerkkiä näihin.
TList
14+18
5
549
Vastaukset
- Delphiguru
"Miten tuota TList pitäisi käyttää (kokemusta lähinnä taulukoista)
Miten sillä tuodaan olion sisältä dataa?
Miten ?"
siis...
TList -luokka ei ole siksi, että sillä "tuodaan olion sisältä dataa" tai "sillä viedään olion sisälle dataa".
VAAN:
TList -luokka on luokka, joka sisältää objektiviitteitä, joita siihen on tallennettu.
Siis:
var
L : TList;
begin
L := TList.Create;
try
L.Add(Objekti1);
L.Add(Objekti2);
L.Add(Objekti3);
// Tässä voi käyttää ko. listaa. Esimerkiksi:
for i := 0 to L.Count - 1 do begin
if L[i] is TEdit then TEdit(L[i]).Text := 'haloo';
if L[i] is TLabel then TLabel(L[i]).Caption := 'heippa';
if L[i] is TStrings then TStrings(L[i]).add('Uuno Turhapuro');
end;
finally
FreeAndNil(L);
end;
end;
HUOM!
Kannattaa kirjoittaa Delphin Editorissa TList, siirtää kohdistin alku- T:n kohdalle ja painaa Ctrl-F1, ja LUKEA (englanninkielinen) ohjeteksti avautuvasta ikkunasta.- 1 4 + 1 8
Noi kysymykset oli tarkoitettu olevan vähän erillään.
" TList -luokka ei ole siksi, että sillä "tuodaan olion sisältä dataa" tai "sillä viedään olion sisälle dataa"."
Eli noihin kahteen viimeiseen kysymyksen
ajatuksena on että minulla on olio johon kuuluu tuo lista.
Miten luen sen (kokoinaisen) listan toiseen olioon.
Ja vastaavasti miten siirrän toisesta oliosta tuollaisen listan. - Delphiguru
1 4 + 1 8 kirjoitti:
Noi kysymykset oli tarkoitettu olevan vähän erillään.
" TList -luokka ei ole siksi, että sillä "tuodaan olion sisältä dataa" tai "sillä viedään olion sisälle dataa"."
Eli noihin kahteen viimeiseen kysymyksen
ajatuksena on että minulla on olio johon kuuluu tuo lista.
Miten luen sen (kokoinaisen) listan toiseen olioon.
Ja vastaavasti miten siirrän toisesta oliosta tuollaisen listan.riippuu muistinhallinnasta.
Suomi24:n typerä forumsofta juuri tuhosi vastaukseni koska se ylitti 5000 merkkiä.
Siis ei laskuria kirjoittamisen aikana ja lopuksi ilmoitus:
"vastauksesi on liian pitkä"
Kun tästä siirty toiselle välilehdelle, niin kirjoitettua tektiä ei saa takaisin mitenkään !
Ratkaisu on periaatteessa helppo:
Olio1.Lista.Assign(Olio2.Lista);
missä molemmissa olioissa Lista on TList -tyyppiä.
huomaa kuitenkin, että olet itse vastuussa oikeasta muistinhallinnasta!
Formin omistamien käyttöliittymäkomponenttien osalta muistinhallinta on automaattista (perustuu Owner -kenttään), muuten olet siitä itse vastuussa.
Jos muistinhallinta tuntuu hankalalta:
http://www.justsoftwaresolutions.co.uk/delphi/using-interfaces-for-exception-safety.html
http://edn.embarcadero.com/article/28217
siis interface (ja TInterfacedObject) on tässä avainsana. - Kahvipapua
Delphiguru kirjoitti:
riippuu muistinhallinnasta.
Suomi24:n typerä forumsofta juuri tuhosi vastaukseni koska se ylitti 5000 merkkiä.
Siis ei laskuria kirjoittamisen aikana ja lopuksi ilmoitus:
"vastauksesi on liian pitkä"
Kun tästä siirty toiselle välilehdelle, niin kirjoitettua tektiä ei saa takaisin mitenkään !
Ratkaisu on periaatteessa helppo:
Olio1.Lista.Assign(Olio2.Lista);
missä molemmissa olioissa Lista on TList -tyyppiä.
huomaa kuitenkin, että olet itse vastuussa oikeasta muistinhallinnasta!
Formin omistamien käyttöliittymäkomponenttien osalta muistinhallinta on automaattista (perustuu Owner -kenttään), muuten olet siitä itse vastuussa.
Jos muistinhallinta tuntuu hankalalta:
http://www.justsoftwaresolutions.co.uk/delphi/using-interfaces-for-exception-safety.html
http://edn.embarcadero.com/article/28217
siis interface (ja TInterfacedObject) on tässä avainsana.Harmi kun jää näkemättä näiden Delphi gurujen koodia
- Delphikoodari..
Kahvipapua kirjoitti:
Harmi kun jää näkemättä näiden Delphi gurujen koodia
Eli siis TList vain säilöö kokoelman pointereita, jotka siis osoittaa olioihin tai mihin tahansa dataan, sinne siis voi "upottaa" mitä tahansa materiaalia ja käydä läpi, tosi hyödyllinen tuo TList :)
Yksi nopeutusvinkki myös TListin köytöstä, kun se pitää käydä läpi..
for I := 0 to lista.count-1 do
begin
objektiX := TObjectiX( lista.List[I] );
if Assigned( objektiX ) then
begin
//.. jeps...
end;
end;
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Sannan kirja USA:n bestseller!
"Congratulations to Sanna Marin's HOPE IN ACTION, officially a USA TODAY bestseller!" Kertoo Scribner. Mitäs persut tä3910553Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa
Pelkästään Viking Linen viinanhakuristeilyitä sponsoroidaan 20 miljoonalla eurolla vuosittain. Dieselin verotukikin on12610122- 217921
Sture Fjäder haluaa tuensaajien nimet julki
Kokoomuspoliitikko haluaa yli 800 euroa kuukaudessa tukia saavien nimet julki. Ehkä olisi syytä julkaista myös kuvat? h1776324Metsäalan rikolliset
Jokohan alkaa vähitellen kaatua kulissit näillä ihmiskauppaa harjoittavilla firmoilla.304892- 554717
Ruotsalaistoimittaja: "Sanna Marinin saunominen saa minut häpeämään"
Sanna Marinin kirja saa täyslaidallisen ruotsalaislehti Expressenissä perjantaina julkaistussa kolumnissa.....voi itku..1174056Maahanmuuttajat torjuvat marjanpoiminnan - "emme ole rottia"
Ruotsalaisen journalistin selvitys paljasti, miksi maahanmuuttajat kieltäytyvät työstä. Taustalla vaikuttavat kulttuuris1243412- 623127
Adonikselle
Kuvittelitko oikeasti, että ootan sua? Kuvittelitko, että voit noin vain vetäyttä ja kun tulet takaisin, kaikki on niin2213060