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

Delphi-Quellcode:

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

Delphi-Quellcode:

Zeichen:= Char(copy(loesung,length(loesung),1));

bei älteren Delphiversionen sollte auch

Delphi-Quellcode:

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?

Delphi-Quellcode:

Zeichen:= loesung[length(loesung)]

[Delp]

Danke Bernhard, hat geklappt!

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

schönen Abend noch

[mkinzler]

Zitat:

Zitat von Delp (Beitrag 1250302)

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

Delphi-Quellcode:

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

lauten :oops:

[Delp]

Stimmt, dass hätte jetzt auch geklappt :D

Danke euch beiden

[DeddyH]

Nur mal so aus Interesse: wo liegt denn in neueren Delphi-Versionen der Unterschied zwischen

Delphi-Quellcode:

Copy(EinString, Length(EinString), 1)[1]

und

Delphi-Quellcode:

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]

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 Zeile

Delphi-Quellcode:

if 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?