Temperatur Umrechner

[jens106]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl, ergebnis, unterergebnis : Real;
begin

  if not TryStrToFloat(Edit1.Text,zahl) then
    begin
      ShowMessage('Ungültige Eingabe');
    end
  else
    begin
    end;


   zahl :=StrToFloat(Edit1.text);