Verwalten von Daten

[marabu]

Hallo.

Du kannst allen Controls in der gleichen Spalte einen gemeinsamen event handler verpassen, wenn du dir eine geeignete Namenskonvention ausdenkst. Nenne die Edit-Felder in der Spalte Ort einfach OrtEdit1 bis OrtEdit5, die ComboBox in der Spalte Heim/Auswärts entsprechend HeimComboBox1 bis HeimComboBox5. Dann hänge den folgenden Code an alle HeimComboBox-Controls und freue dich:

Delphi-Quellcode:

procedure TVerwaltung.HeimComboBoxChange(Sender: TObject);
var
  Edit: TEdit;
  sIndex: String;
begin
  with Sender as TComboBox do
  begin
    sIndex := RightStr(Name, 1);
    Edit := self.FindComponent('OrtEdit' + sIndex) as TEdit;
    if Text = 'Heim'
      then Edit.Text := 'Hilden'
      else Edit.Text := '';
  end;
end;

Grüße vom marabu