Mal abgesehen davon, dass sich der Code bei mir unter Delphi 6 durchaus kompilieren lässt, könntest Du auch einfach eine StringListe nehmen:
Code:
[b]Procedure[/b] Foo;
[b]var[/b] Index : Integer;
data : TStringList;
[b]begin[/b]
data:= TStringList.Create;
[b]TRY[/b]
data.LoadFromFile( 'TEST' );
[b]For[/b] Index:= 0 [b]To[/b] data.Count-1 [b]Do[/b]
[b]Begin[/b]
[color=#000080]// data[Index] auswerten[/color]
[b]End[/b];
[b]FINALLY[/b]
data.Free;
[b]END[/b];
[b]end[/b]
Daniel R. Wolf
mit Grüßen aus Hamburg