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
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)