Groupbox.Caption Problem

[DGL-luke]

Wenn du VCL-Komponenten indiziert ansprechen willst, bleibt dir meistens nix übrig als sie per Hand in ein Array zu packen. Man kann sie auch über Form.Components zusammensuchen, das ist aber weniger performant und meistens komplizierter.

So in der Art kann man es machen:

Delphi-Quellcode:

procedure UpdateRTF;
var GoupBoxes: array of TGroupBox;
var i: Integer;
begin
Setlength(GroupBoxes, n); //n durch Anzahl deiner Groupboxen ersetzen
GroupBoxes[0] = Groupbox1;
GroupBoxes[1] = Groupbox2;
...
GroupBoxes[n] = Groupbox/n+1/;

for i := 0 to high(GroupBoxes) do
begin
  RichEdit1.Lines.LoadFromFile(GroupBoxes[i].Caption);
  RichEdit1.Lines.Append(DateToStr(DateTimePicker1.Date)+#9+Edit3.Text+#9+Edit4.Text);
  RichEdit1.Lines.SaveToFile(GroupBoxes[i].Caption); 
end;
end;