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.