Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by juergen,
31. Jan 2016
@Sir Rufo,
du hast so Recht. Danke für deine Aufmerksamkeit und das Aufzeigen wie es richtig gemacht wird!:thumb:
Einen schönen Sonntag!
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by juergen,
31. Jan 2016
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...:oops:
// Spaltenmueberschriften dynamisch zur Laufzeit setzen...
for i := 0 to Pred(cxGrid1DBTableView1.ColumnCount) do begin
for j := 0 to ComponentCount - 1 do begin
if (Components is TEdit) and (TEdit(Components).Tag = i + 1) and...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by juergen,
31. Jan 2016
Hallo,
beim schreiben hier wurde mir klar dass ich mit einer 2. Schleife die Componenten durchlaufen muss...
Mein jetziger Code:
for i := 0 to Pred(cxGrid1DBTableView1.ColumnCount) do begin
for j := 0 to ComponentCount - 1 do begin
if (Components is TEdit) and (TEdit(Components).Tag = i) and (TEdit(Components).Tag > 0) then cxGrid1DBTableView1.Columns.Caption := ...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by juergen,
31. Jan 2016
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...