Einzelnen Beitrag anzeigen

Delphi Freak

Registriert seit: 4. Jan 2010
13 Beiträge
 
Delphi 7 Personal
 
#1

Temperatur-Umrechner

  Alt 5. Jan 2010, 18:30
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
  Mit Zitat antworten Zitat