Edit Felder voneinander Abhängig / Umrechnung

[problemstoffe]

Das geht leider auch nicht! Wieder eine Überlastung... (StackOverflow)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.celChange(Sender: TObject);
var i: extended;
begin
  i := StrToFloat(cel.Text) ;
  if Sender <> rea then
    rea.Text := FloatToStr(i * 0.8);
  if Sender <> fahr then
    fahr.Text := FloatToStr(i * 1.8 + 32);
  end;


procedure TForm1.reaChange(Sender: TObject);
var i: extended;
begin
  i := StrToFloat(rea.Text);
  if Sender <> cel then
    cel.Text := FloatToStr(i * 1.25);
  if Sender <> fahr then
    fahr.Text := FloatToStr(i * 2.25 + 32);
  end;


procedure TForm1.fahrChange(Sender: TObject);
var i: extended;
begin
  i := StrToFloat(fahr.Text);
  if Sender <> cel then
    cel.Text := FloatToStr(i - 32 * 5/9);
  if Sender <> rea then
    rea.Text := FloatToStr(i - 32 * 4/9);
end;

end.