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

[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.