Delphi-Quellcode:
var
S,r : String;
i,j : Integer;
begin
s := '200+300/400';
r := '+-* /';
for i:= 1 to length(s) do
begin
j := 1;
while (S[i] <> r[j]) and (j < length(r)) do
inc(j);
if S[i] = r[j] then
showmessage('operator'''+r[j]+'''gefunden ');
end;
ich denke das hilft dir weiter...
while (S[i] <> r[j]) and (j < length(r)) do is nix anderes als
pos nur kannst du das debuggen