Ein wenig konfus was Du da willst.
Gehen wir mal davon aus, daß Du eine Funktion hast, die die Inhalte aus einem String auslesen kann (
wert:=getcol(i,mystring);
)
dann müßte die Verarbeitung ungefähr so aussehen:
Delphi-Quellcode:
var
NewRec: PRec;
begin
Stringlist:=tStringlist.Create;
Stringlist.Loadfromfile('meinedaten.txt');
for i:=0 to Stringlist.count-1 do begin
New(NewRec);
NewRec^.Col1 := getcol(1,Stringlist[i]);
NewRec^.Col2 := getcol(2,Stringlist[i]);
NewRec^.Col3 := getcol(3,Stringlist[i]);
FList.Add(NewRec);
end;
Wenn Du nur eine Spalte lesen willst dann vllt. so:
Delphi-Quellcode:
var
NewRec: PRec;
begin
Stringlist:=tStringlist.Create;
Stringlist.Loadfromfile('meinedaten.txt');
for i:=0 to Stringlist.count-1 do begin
New(NewRec);
NewRec^.Col1 := getcol(1,Stringlist[i]);
NewRec^.Col2 := '';
NewRec^.Col3 := '';
FList.Add(NewRec);
end;
U.U wäre es besser mit einem
Array of Col
zu arbeiten, da könntest Du die einzelnen spalten direkt über einen Index ansprechen.
Aber bitte nicht vergessen vorher
alle Felder zu initialsieren.
Gruß
K-H