Delphi-Quellcode:
//Z1
Str := Pos('!-',Text.Lines.Strings[i])+2;
for e := 0 to Pos('+', Text.Lines.Strings[i]) do
Befehl := Befehl + Text.Lines.Strings[i][Str+e];
Z1 := Befehl;
Befehl := '';
// Z2
Str := Pos('+',Text.Lines.Strings[i])+1;
for e := 0 to Pos('-!', Text.Lines.Strings[i]) do
Befehl := Befehl + Text.Lines.Strings[i][Str+e];
Z2 := Befehl;
SendMessage(Addieren(StrToInt(Z1),StrToInt(Z2)));
end;
--> man gibt das ein Rw: !-4+9-! und 13 sollte in ner mesasge(prozeduren stimmen alle es geht nur um die schleife) ausgeben
also das Problem er schribt nacher "9-! kein Integer --> bei //Z2
--> --> --> pos-2 bringt auch nix...
danke im Voraus