Sender

[Bummi]

ohne Button

Delphi-Quellcode:

procedure TForm2.Edit2Change(Sender: TObject);
var
  d:Double;
begin
  If TryStrToFloat(TEdit(Sender).Text,d) then
    if Sender=Edit1 then
      begin
      Edit2.OnChange := nil;
      Edit2.Text := FloatToStr(d/2);
      Edit2.OnChange := Edit2Change;
      end
    else
      begin
        Edit1.OnChange := nil;
        Edit1.Text := FloatToStr(d/2);
        Edit1.OnChange := Edit2Change;
      end;

end;

[jandelph]

Danke es funktioniert und ich versteh es auch ausßer,
was beudeutet der datentyp double?
und warum ist am Ende
Application.ProcessMessages ?
oder besser gefragt was geschieht dadurch?
LG
Jan

[Bummi]

Zitat:

und warum ist am Ende
Application.ProcessMessages ?

das hatte ich da vergessen, sorry, brauchst Du nicht ....

Double ist ein Fliesskommadatentyp 8 Byte und entspricht in neueren Versionen Real