Thema: Delphi Trennzeichen suchen

Einzelnen Beitrag anzeigen

delphien

Registriert seit: 25. Nov 2005
27 Beiträge
 
#1

Trennzeichen suchen

  Alt 25. Nov 2005, 18:54
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 !
  Mit Zitat antworten Zitat