Verwalten von Daten

[fabgo]

Hallo ihr,

bin gerade dabei, mit einen spielplan zu programmieren...

(habe ihn als anhang angehängt)

nun habe ich das problem, dass ich nicht für jede combo-box alles neu programmieren möchte, sondern sagen, die Befehle von ComboBox11 sollen gleichzeitig auch die Befehle von ComboBox12 sein...nur dann eben ein anderes Feld zugewiesen bekommen.

Guckt es euch einfach mal an... Ich werde die Stelle rot markieren....

danke

[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

[Duffy]

Hallo fabgo,
ich habe es mal auf die Schnelle zusammen geprogt. Der Trick besteht darin, dass allen Comboboxen von "Heim/Auswärts" dieselbe Ereignisroutine zugewiesen wird. Gleichfalls bekommt die "Tag" Eigenschaft der Combobox und des Edit Feldes "Ort" eine eindeutige Identifikation (1..1, 2..2, 3..3 usw.) zugeordnet.

Der Rest ist Makulatur. Einfach durch die Komponenten iterieren und den entsprechenden Wert setzen.

Bye
Claus

[fabgo]

VIELEN DANK!!!

fabgo