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;