TEdit Text "überschreiben"

[BrunoT]

Hi LoL

einfach folgendermassen:

Delphi-Quellcode:

Var
  GradCelsius:Integer;

...

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Try
    GradCelsius:=StrToInt(Edit1.Text)-32;
  except
    GradCelsius:=0;
  end;
end;

Der Edit1.Text bleibt so wie er ist.

mfg

BrunoT