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