Thema: Delphi Trennzeichen suchen

Einzelnen Beitrag anzeigen

bioser

Registriert seit: 30. Aug 2005
140 Beiträge
 
#6

Re: Trennzeichen suchen

  Alt 25. Nov 2005, 21:02
hi, ich habe es nun soweit hinbekommen, daß ich innerhalb der Funktion GetNextToken
auf das Token selbst zugreifen kann. Allerdings klappt das noch nicht beim Aufruf.

Delphi-Quellcode:
function GetNextToken():Boolean;

var i,j:integer;
    str:string;
begin

for i:=0 to sl.count-1 do
begin
 str := sl.Strings[i];
 for j:=1 to length(str) do
 begin
   if isSeparator(str[j])
   then begin
      ShowMessage(Token);
      Token := '';
   end
   else begin
     Token := Token + str[j];
   end;//else
   end;//if
 end;//for
end;//for
Result := FALSE;
end;
Beim Aufruf wird das Token korrekt angezeigt. Er sieht so aus:

Delphi-Quellcode:
ende:=FALSE;

while (not Ende) do
begin
 ende := not GetNextToken();
 //hier will ich jedes Token haben und damit weiterarbeiten
 //z.B. Add(Token);
end;
  Mit Zitat antworten Zitat