Trennzeichen suchen

**delphien**

Moin, irgendwie stehe ich auf'm Schlauch und weiß nicht weiter. Bin absoluter Anfänger, deswegen richte ich nun meine Frage an die Profis. Ich habe hier ein Grundgerüst:

zusammenfalten · markieren

Delphi-Quellcode:

			var sl:TSTringList;

    token:string;

function GetNextToken:Boolean;

var i,j:integer;

    str:string;

begin

for i:=0 to sl.count-1 do

begin

 token := ''; 

 str := sl.Strings[i];

 for j:=0 to length(str) do

 begin

 //bis zum Trennzeichen, z.B. ";", Zeichen zusammenfügen

 token := token + str[j];   

 end; 

end;

end;

Ich möchte die function GetNextToken folgendermaßen aufrufen:

zusammenfalten · markieren

Delphi-Quellcode:

			
var 

   ende:Boolean;

sl := TStringList.Create;

sl.loadfromFile('c:\testfile.txt');

ende := FALSE;

while not Ende do begin

if Token <> '' then

begin

  ende := not GetNextToken;

  //Jedes Token wird hier benötigt !

end;

end;//while

Kann jemand dabei behilflich sein ? DANKE !

Trennzeichen suchen

Trennzeichen suchen

Forumregeln