Temperatur-Umrechner

[Delphi Freak]

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:

Delphi-Quellcode:

2: Label1.Caption := FloatToStr(StrToFloat((Edit1.Text)-32)/1.8);

Was habe ich falsch gemacht?
Würde mich über eure Hilfe freuen
Florian

[himitsu]

Zitat:

Code:

FloatToStr(StrToFloat([color=#ff0000][b]([/b][/color]Edit1.Text)-32)/1.8);

Code:

FloatToStr
(
  StrToFloat
  (
    (
      Edit1.Text
    )
[color=#ff003f]    -
    32[/color]
  )
  /
  1.8
);

vermutlich meinst du

Code:

FloatToStr([color=#ff0000][b]([/b][/color]StrToFloat(Edit1.Text)-32)/1.8);

und vergiß nicht dir Berechnung "3" anzusehn. :zwinker:

[Wolfgang Mix]

Das hebt sich auf:

Delphi-Quellcode:

FloatToStr(StrToFloat

[Delphi Freak]

@himitsu: Danke, genau des hab ich gemeint, jetzt tus einwandrei.

@Wolfgang Mix: Im Prinzip soll sichs ja am Ende auch aufheben, er soll erst nen Text auslesen, daraus ne Zahl machen und die dann wieder in Text umwandeln.