Guten Abend,
habe heute angefangen meinen Taschenrechner zu programmieren und komme direkt nicht mehr weiter..
Hier der Quellcode:
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var eingabe,loesung: string;
ergebnis: double;
zeichen:char;
begin
ergebnis:= 0;
loesung:= edit2.text;
eingabe:=edit1.Text;
zeichen:= copy(loesung,length(loesung),1);
delete(loesung,length(loesung),1);
case zeichen of
'+': ergebnis:=strtofloat(loesung)+strtofloat(eingabe);
'-': ergebnis:=strtofloat(loesung)-strtofloat(eingabe);
end;
edit2.text:=floattostr(ergebnis);
end;
end.
Bei der Zeile
zeichen:= copy(loesung,length(loesung),1);
zeigt es mir den oben genannten Fehlercode an. Wie könnte ich es anders schreiben, damit der Fehler beseitigt wird?
Danke im voraus für die Antworten.
Delp