,, at gøre livet lettere for tobjectlist, ny delphi 5 & 6 er tobjectlist.som det hedder indebærer, det er i stand til at lagre en liste over genstande.,,, jeg for nylig var forpligtet til at forelægge en prøve ansøgning om et job, jeg forfølger.en ting, denne ansøgning var tilladt, at brugeren - "kommentere kasser" på et billede.disse krav, der tobjectlist klasse en perfekt kandidat.,,, at dette ændret procedure:,,, procedure tmainform. addstring;,, var, mystringlist: tstringlist;,, begynder, mystringlist: = tstringlist. skabe;,,,, mystringlist. der tilsættes ('blah), mystringlist. der tilsættes ('blah2), undtagen, freeandnil (mystringlist);,,,,,,,,, denne procedure naturligvis indfører en ret alvorlig hukommelse læk!ved hjælp af tobjectlist kan redde os hovedpine ved hjælp af en standard, tlist på grund af en vidunderlig ejendom /paramter kaldet "ownsobjects".,,, overveje vores ændret procedure:,,, lad os begynde med at skabe tobjectlist, hvis form er skabt.,,, procedure tmainform. formcreate (afsender: tobject),,, begynder, flist: = tobjectlist. skabe (korrekt); //ownsobjects er sandt.,,,,,, procedure tmainform. addstring;,, var, mystringlist: tstringlist;,, begynder, mystringlist: = tstringlist. skabe;,,,, mystringlist tilsættes ('blah ').,,, mystringlist. der tilsættes ('blah2), flist. der tilsættes (mystringlist), bortset fra, freeandnil (mystringlist);,,,,,,,,,, så vi ikke behøver at bekymre sig om hukommelse lækage - jeg går nu.e, når den væsentligste form er ødelagt, har vi følgende kode:,,, procedure tmainform. formdestroy (afsender: tobject), begynder, flist. fri,,,,,,, tobjectlist giver dig mulighed for at tilføje et objekt af enhver art, der betyder, at det er påkrævet at være overfladisk.lad os tage et kig på den. der tilsættes metode i tobjectlist selv:,,, funktion tobjectlist. der tilsættes (aobject: tobject): heltal, begynder, resultat: = arvede tilføje (aobject);,,,,,, bemærker den parameter, type er tobject og som enhver god delphi programmør skal ved tobject absolut er udgangspunkt for en klasse i delphi vcl.af gas med en parameter i tobject du kan få noget på den liste..,,, der er en ulempe, men.henviser til punkt på listen giver dig kun en "tobject".for at tage et punkt på din liste en slags casting er påkrævet.måske skal vi finde os i listen med en tekst, der indeholder: "bla".naturligvis tobject har ikke en ejendom i teksten, så vi bliver nødt til at gøre nogle lige typen.,,, procedure findtext;,, var, jeg: heltal, begynder, for jeg: = 0 til flist. regne - 1, hvis tstringlist (flist. produkter [i]) [0] = "bla", hvis tstringlist (flist. produkter [i]). teksten = "bla" så, showmessage (tstringlist (flist. produkter [i]). teksten),,,,,,,,,,, at mere end én type klasse til samme objectlist der er også en mulighed.du kan ringe til tobjectlists metode med titlen: findinstanceof.,,, her er vidunderligt redskab "klasse reference" kommer belejligt.pas på henvisningen til din klasse, type og findinstanceof vil vende tilbage, indeks, hvor i listen over punktet er placeret:,,, flist. findinstanceof (tstringlist, sandt, 0);,,, det er findobject lektie, og jeg håber, at du kan se det værdi, og jeg håber, at denne artikel var af bistand.,,, eric "delphidev" brown,