Edit Felder voneinander Abhängig / Umrechnung

[DeddyH]

Mal ein Beispiel auf die Schnelle:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var i: integer;
begin
  i := StrToInt(Edit1.Text);
  if Sender <> Edit2 then
    Edit2.Text := IntToStr(i*2);
  if Sender <> Edit3 then
    Edit3.Text := IntToStr(i*3);
end;

procedure TForm1.Edit2Change(Sender: TObject);
var i: integer;
begin
  i := StrToInt(Edit2.Text);
  if Sender <> Edit1 then
    Edit1.Text := IntToStr(i div 2);
  if Sender <> Edit3 then
    Edit3.Text := IntToStr(i div 2 *3);
end;

procedure TForm1.Edit3Change(Sender: TObject);
var i: integer;
begin
  i := StrToInt(Edit3.Text);
  if Sender <> Edit1 then
    Edit1.Text := IntToStr(i div 3);
  if Sender <> Edit2 then
    Edit2.Text := IntToStr(i div 3 * 2);
end;