Inkompatible Typen: Char und String

[Delp]

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

[mkinzler]

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

[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

[Bernhard Geyer]

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

[mkinzler]

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

[DeddyH]

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?

[Delp]

Danke Bernhard, hat geklappt!

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

schönen Abend noch

[Delp]

Stimmt, dass hätte jetzt auch geklappt

Danke euch beiden

[Delp]

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

Meine Plus-Taste:

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

[mkinzler]

Was steht in Zeile 61?