• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

TStringList Objekte wie ansprechen??

Hallo

irgendwie hab ich nen Brett vorm Kopf...
wie kann ich die Elemente zweier TStringList
Objekte auslesen und ansprechen?

...
if not Assigned(FObjectCodeList) then
FObjectCodeList := TObjectCodeList.Create;
FObjectCode     := TObjectCode.Create;
FObjectCode.Add(#9+'push ebp');
FObjectCode.Add(#9+'mov ebp, esp');
FObjectCode.Add(#9+'sub esp, 512');
FObjectCodeList.AddObject('LClassName_'+
FActiveClassObject+'_'+$<lbl>3.yytoken,
FObjectCode);
);

...
if Assigned(FObjectCodeList) then
begin
for i := 0 to FObjectCodeList.Count - 1 do
begin
data_code.AddStrings(FObjectCode.Objects[i]
..??
end;
end;
...

ich will in "data_code" (ebenfalls ein TStringList
Objekt) ein Oberkriterium mit zugehörigen Unter-
kriterium speichern.
Also zum Beispiel:

BaumA
|
+------
| Eins
+------
| Zwei
+------
|
BaumB
|
+-----
| gugu
+-----

wie mache ich dies korrekter weise?
Danke für Infos
Jens

Antworten