Grad <-> Fahrenheit (Formel)

[Tommy1988]

Hallo, mit folgendem Code, wandle ich
einen "Grad-wert" aus einem Edit in einen Fahrenheitswert um,
und lasse ihn in einem 2. Edit ausgeben.

Delphi-Quellcode:

// oben
Grad, Fahrenheit : Real;

const
KommaAcht : Double = 1.8;
{...}
procedure TForm1.Button14Click(Sender: TObject);
begin
Grad := StrToFloat(EdGr.Text);

Fahrenheit := Grad * KommaAcht + 32;
// Wenn Eingabe gleich 1 (Grad) : Fahrenheit ist gleich: 33,8.
// Anders ist es mir nicht möglich auf den FahrenheitsWert zu kommen.

EdFa.Text := FloatToStr(Fahrenheit);

Anders rum Fahrenheit <-> Grad bekomme ich es leider nicht hin.

Weis wer eine mathematishe Lösung?

Wenn ich 33,9 eingebe, müsste ich irgentwie auf 1 (Grad) kommen.