Groupbox.Caption Problem

[rollstuhlfahrer]

HI,

warum so kompliziert?? Da du die Groupboxen höchstwarscheinlich mit dem Designer erzeugt hast, reicht ein einfacher Aufruf von FindComponent. Das ganze sieht dann etwa so aus:

Delphi-Quellcode:

procedure TForm1.Speichern;
var Text: String;
i: Integer;
begin
  for i := 1 to 2 do
  begin
    RichEdit.Lines.LoadFromFile((FindComponent('Groupbox' + IntToStr(i)) AS TGroupbox).Caption);
    //...
    RichEdit.Lines.SaveToFile((FindComponent('Groupbox' + IntToStr(i)) AS TGroupbox).Caption);
    RichEdit.Clear;
  end;
end;

Bernhard

EDIT: Clear vergessen, sonst gehts net