String in Array einlesen

[p80286]

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

[jupiter4065139]

ok, wie müsste die getcol Funktion ungefähr aussehen?


ich hab noch ne frage: Wie müsste ich denn das machen um den gesamten string mit allen zeilen in die Liste einzulesen

Delphi-Quellcode:

mystring := col1 + #9 + col2 + #9 + col3 + #13#10;   //AK

              strl:=Tstringlist.Create;
              strl.add(mystring);
              strl.SaveToFile('liste.txt');

so gibt er mir nur eine zeile wieder