Hallo, da sich mein erstes Problem jetzt erledigt hat, habe ich mich natürlich direkt an mein nächstes Projekt gewagt. Hier will ich verschiede Temperaturen umrechnen. Also °C, °F und K in die jeweils anderen. Das möchte ich mit einer Combobox machen, also man wählt dort aus, von welcher Einheit, in welche andere man umrechnen möchte, dürckt auf den Knopf umrechnen und das Ergebnis soll nach in einem Label ausgegeben werden.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: Label1.Caption := FloatToStr(StrToFloat(Edit1.Text)*1.8+32);
1: Label1.Caption := FloatToStr(StrToFloat(Edit1.Text)+237.15);
2: Label1.Caption := FloatToStr(StrToFloat((Edit1.Text)-32)/1.8);
3: Label1.Caption := FloatToStr(StrToFloat((Edit1.Text)+459.67)*1.8);
4: Label1.Caption := FloatToStr(StrToFloat(Edit1.Text)-237.15);
5: Label1.Caption := FloatToStr(StrToFloat(Edit1.Text)*1.8-459.67);
end;
end;
das wäre meine Prozedur, zum die Temperaturen umwandeln, wenn ich das Programm jetzt aber starten will, kommt eine Fehlermeldung: 'Inkompatible Typen: 'String' un 'Integer''. Der Fehler soll in folgender Zeile vorliegen:
2: Label1.Caption := FloatToStr(StrToFloat((Edit1.Text)-32)/1.8);
Was habe ich falsch gemacht?
Würde mich über eure Hilfe freuen
Florian
"Zwei Dinge sind unendlich, das Universum und die menschliche Dummheit, aber bei dem Universum bin ich mir noch nicht ganz sicher."
Albert Einstein