Also ich möchte einen Taschenrechner programmieren, bei dem man eine komplette Rechnung in ein Edit Feld schreiben kann, welche dann,wenn man auf den Button klickt ausgerechnet wird. Ich weiß, dass das sehr wahrscheinlich nicht gerade der beste Weg ist es zu lösen, aber mir reicht es so. Ich bin gerade noch bei den Klammern, ich will die Klammern aus dem gesamten String rausnehmen, ausrechnen lassen und dann das Ergebnis wieder in den String reinbringen.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
|
Eingabe:=Edit1.Text;
repeat
begin
PositionAnfangKlammer:=pos('(',Eingabe);
PositionEndeKlammer:=pos(')',Eingabe);
Klammern:= Copy(Eingabe,PositionAnfangKlammer,PositionEndeKlammer-PositionAnfangKlammer+1);
if pos('+',Klammern)>0 then
begin
Klammernergebnis:=IntToStr(StrToInt(Klammern[pos('+',Klammern)-1])+StrToInt(Klammern[pos('+',Klammern)+1]));
end;
Ausgabe:=StringRePlace(Eingabe,Klammern,Klammernergebnis);
end
until
pos('(',Eingabe) = 0;
Memo1.Text:=Ausgabe; |
So müsste es ja klappen, wenn man nur + in der Klammer rechnen würde und als Ergebnis würde im Memo dann der String mit ausgerechneten Klammern da stehen, nur das Problem ist, dass mir der Fehler nich genügend wirkliche Parameter bei StringRePlace angezeigt wird. Wisst ihr wo der Fehler liegt?
wayne123
