Groupbox.Caption Problem

[fl63]

Hallo DPler!

Ich habe ein Problem.

Delphi-Quellcode:

procedure TForm1.speichernClick(Sender: TObject);
begin
  RichEdit1.Lines.LoadFromFile('WareA.txt');
  RichEdit1.Lines.Append(DateToStr(DateTimePicker1.Date)+#9+Edit1.Text+#9+Edit2.Text);
  RichEdit1.Lines.SaveToFile('WareA.txt');
  RichEdit1.Clear;
  RichEdit1.Lines.LoadFromFile('WareB.txt');
  RichEdit1.Lines.Append(DateToStr(DateTimePicker1.Date)+#9+Edit3.Text+#9+Edit4.Text);
  RichEdit1.Lines.SaveToFile('WareB.txt');
  RichEdit1.Clear;
 end;

Die editboxen 1+2 sowie 3+4 befinden sich in Groupboxen 1 bzw. 2.
Die Caption Eigenschaft der jeweiligen Groupbox heißt WareA.txt bzw.WareB.txt.

Mein Ziel ist:
RichEdit1.Lines.LoadfromFile(Groupbox1.Caption)
RichEdit1.Lines.Append.....
RichEdit1.Lines.SaveToFile(Groupbox1.Caption)

auf diese Weise erhoffe ich mir eine Vereinfachung(for i=1 to Groupbox(i).Caption).

Bitte helft einem blutigen Anfänger!!

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

[fl63]

Danke! Werd ich gleich mal ausprobieren.

[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

[DGL-luke]

o.O

In jedem Schleifenaufruf FindComponent... sowas sollte man sich garnicht angewöhnen. Das tötet die Performance. Wenn dann gleich Form.Components[] durchiterieren und alle gefundenen GroupBoxen in eine Liste schmeißen.