Guten Abend,

habe heute angefangen meinen Taschenrechner zu programmieren und komme direkt nicht mehr weiter..

Hier der Quellcode:

zusammenfalten · markieren

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

Versuch mal
Zeichen:= Char(copy(loesung,length(loesung),1)); bei älteren Delphiversionen sollte auch
Zeichen:= copy(loesung,length(loesung),1)[0]; funktionieren

Danke für die fixe Antwort.

Beides funktioniert leider nicht.
Bei erster Variante erscheint die Fehlermeldung "Ungültige Typumwandlung" und bei der zweiten Variante: "[Fehler] Unit1.pas(65): E2157 Auf Element 0 kann nicht zugegriffen werden - 'Length' oder 'SetLength' verwenden".

Habe übrigens Delphi 2005

Du willst das letzte Zeichen haben?
Zeichen:= loesung[length(loesung)]

Danke Bernhard, hat geklappt!

Hab irgendwo gelesen gehabt, dass man dafür copy verwendet.

schönen Abend noch

Zitat von Delp:

Danke für die fixe Antwort.

Beides funktioniert leider nicht.
Bei erster Variante erscheint die Fehlermeldung "Ungültige Typumwandlung" und bei der zweiten Variante: "[Fehler] Unit1.pas(65): E2157 Auf Element 0 kann nicht zugegriffen werden - 'Length' oder 'SetLength' verwenden".

Habe übrigens Delphi 2005

Sollte auch Zeichen:= copy(loesung,length(loesung),1)[1]; lauten

Stimmt, dass hätte jetzt auch geklappt

Danke euch beiden

Nur mal so aus Interesse: wo liegt denn in neueren Delphi-Versionen der Unterschied zwischen
Copy(EinString, Length(EinString), 1)[1] und
EinString[Length(EinString)] Nach meinem Verständnis ist das Ergebnis der Copy-Funktion ein String, ob ich nun auf den indiziert zugreife oder auf das Original, welche Rolle spielt das?

Hab da noch eine Frage zu den Fehler: [Fehler] Unit1.pas(61): E2012 Ausdruckstyp muss BOOLEAN sein

Meine Plus-Taste:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var eingabe,loesung: string;
ergebnis: double;
zeichen: char;
begin
eingabe:=edit1.text;
if edit2.Text:='' then
begin
edit2.Text:=edit1.Text+'+';
edit1.text:=''
end
else
ergebnis:=0;
loesung:= edit2.text;
zeichen:= copy(loesung,length(loesung),1)[1];
delete(loesung,length(loesung),1);
case zeichen of
'+': ergebnis:=strtofloat(loesung)+strtofloat(eingabe);
'-': ergebnis:=strtofloat(loesung)-strtofloat(eingabe);
'*': ergebnis:=strtofloat(loesung)*strtofloat(eingabe);
'/': ergebnis:=strtofloat(loesung)/strtofloat(eingabe);
end;
case zeichen of
'+': edit2.Text:=floattostr(ergebnis)+ '+';
'-': edit2.Text:=floattostr(ergebnis)+ '-';
'*': edit2.Text:=floattostr(ergebnis)+ '*';
'/': edit2.Text:=floattostr(ergebnis)+ '/';
end;
edit1.Text:=floattostr(ergebnis);
end;

Wie ihr vielleicht schon mitbekommen habt, will ich einen Rechner mit 2 Edit-Feldern programmieren. (ähnlich dem Windows-Rechner)

Nun soll geprüft werden, ob in den oberen Feld bereits eine Zahl mit Operator steht. Wenn ja, dann soll mit einem erneuten drücken eines Operators bereits das Ergebnis in das untere Feld eingetragen werden.

Ich glaube das Programm dürfte somit laufen, nur wie bekomme ich diese Zeileif edit2.Text:='' then so hin, dass kein Fehler mit Boolean auftritt?

Edit: Habs selber hinbekommen. Einfach ne Variable drauß gemacht

Was steht in Zeile 61?