alle Edits durchlaufen und Edit_x_.Text einer Grid-Column zuweisen

[juergen]

Hallo zusammen,

auf einem Panel habe ich ca. 30 Edits, wobei jedes Edit eine Überschrift für eine Spalte in einem Grid bedeutet.
Das Grid kann x Anzahl von Spalten haben.
Die Anzahl der vorhandenen Grid-Spalten zu ermitteln ist kein Problem.
Die Überschrift pro Spalte zu setzen ist auch kein Problem.

Aber wie könnte ich den Text von Edit 1 in Spalte 1 übernehmen, ... den Text von Edit 15 in Spalte 15 übernehmen usw.
Ich muss dazu irgendwie eine Schleife durchlaufen ala:

Delphi-Quellcode:

for i := Pred(cxGrid1DBTableView1.ColumnCount) downto 0 do begin
  cxGrid1DBTableView1.Columns[i].Caption := Edt_(i).Text // Pseudocode???
end;

Ich würde hier ungern mit zig If-Bedingungen arbeiten wollen, da gibt es bestimmt eine bessere Lösung.

Für Hinweise bedanke ich mich schon mal vorab!

[mkinzler]

Z.B. mit Panel.FindComponent()

[Mavarik]

Oder herkömmlich...

Delphi-Quellcode:

Edits[0] := Edit1;
Edits[1] := Edit2;

usw.

Klingt mir wieder mal nach "Datenhaltung" in Kontrolls...

Baue Dir doch zur Datenhaltung lieber einen Klasse oder ein Record..

Und das wird dann eben dargestellt oder angezeigt...

[juergen]

Hallo,

beim schreiben hier wurde mir klar dass ich mit einer 2. Schleife die Componenten durchlaufen muss...
Mein jetziger Code:

Delphi-Quellcode:

  for i := 0 to Pred(cxGrid1DBTableView1.ColumnCount) do begin
    for j := 0 to ComponentCount - 1 do begin
      if (Components[j] is TEdit) and (TEdit(Components[j]).Tag = i) and (TEdit(Components[j]).Tag > 0) then  cxGrid1DBTableView1.Columns[i].Caption :=  TEdit(Components[j]).Text;
    end;
  end;

Das Problem dabei ist, dass die erste Spalten-Überschrift leer bleibt und ich gerade nicht weiß warum.

[juergen]

So, ich hab's. Da die Tag-Eigenschaft mit 1 beginnt und nicht mit Null muss ich beim Vergleich dann auch eine "1" dazuzählen...

Delphi-Quellcode:

  // Spaltenmueberschriften dynamisch zur Laufzeit setzen...
  for i := 0 to Pred(cxGrid1DBTableView1.ColumnCount) do begin
    for j := 0 to ComponentCount - 1 do begin
      if (Components[j] is TEdit) and (TEdit(Components[j]).Tag = i + 1) and (TEdit(Components[j]).Tag > 0) then
          cxGrid1DBTableView1.Columns[i].Caption := TEdit(Components[j]).Text;
    end;
  end;
end;

Vielen Dank und allen noch einen schönen Sonntag!

[Sir Rufo]

Bei 30 Edits und 30 Spalten werden hier 900 Iteration durchgeführt.

Klingt ein wenig viel ...

Es reicht völlig

Delphi-Quellcode:

for j := 0 to ComponentCount - 1 do begin
  if (Components[j] is TEdit) and (TEdit(Components[j]).Tag > 0) then
    cxGrid1DBTableView1.Columns[TEdit(Components[j]).Tag-1].Caption := TEdit(Components[j]).Text;

Dann waren es nur noch 30