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:
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:
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 !