Dynamisches erstellen von Tabsheets und Memos

[p80286]

Hallo zusammen,

Ich habe eine Anwendung, die ihre Logdateien über mehrere Verzeichnisse verteilt. Also schnell ein Form mit einem Pagecontrol erstellt.
Für jede gefundene Logdatei soll jetzt auf dem Pagecontrol ein Tabsheet erstellt werden und auf jedem Tabsheet ein Memo.
Ich hab mir aus mehreren Beispielen meinen Source zusammengeklöppelt, aber ich werde das Gefühl nicht los, das er etwas suboptimal ist, vor allem was Parent und Owner angeht. Könntet Ihr bitte einmal darüber schauen und mich korrigieren:

Delphi-Quellcode:

var
   marr : array of tmemo;
   ll   : tstringlist;

.....
  { ll enthält Dateinamen }
  if ll.count>0 then
    setlength(marr,ll.count-1);
    for i:=0 to ll.count-1 do begin
      with TTabSheet.Create(pagecontrol1) do begin
        PageControl := PageControl1;
        Caption := ll[i];
      end;
      marr[i]:=tMemo.Create(self);
      marr[i].parent:=pagecontrol1.pages[i];
      marr[i].Align:=alClient;
      marr[i].ScrollBars:=ssBoth;
      try
      marr[i].Lines.loadfromfile(ll[i]);
      except
      marr[i].text:='**** '+#13#10+
                    ll[i]+#13#10+
                    ' konnte nicht geöffnet werden'+#13#10+
                    ' **** '  ;
      end;
    end;

Das "Aufräumen" fehlt noch, da hab ich mir etwas in dieser Art vorgestellt:

Delphi-Quellcode:

for i:=0 to Pagecontrol1.pages.count-1 do
  Pagekontrol1.Pages[i].free; {mit automatischer Freigabe der Memos !? }

Vielen Dank
K-H

[DeddyH]

Kann es sein, dass marr um 1 Element zu klein ist? Ansonsten ist mir nichts weiter aufgefallen.

[himitsu]

Jupp, marr ist zu klein.

Und beim Löschen die Forschleife rückwärts laufen lassen oder Pages[0].Free; verwenden.

Das Memo wird freigegeben, wenn dessen Owner freigegeben wird.
Also für das Memo das TabSheet als Owner angeben.
tMemo.Create(pagecontrol1.pages[i]);

[p80286]

Vielen Dank!
Fluppt wie gewünscht!
dieses ..count-1 hab ich glatt übersehen und in die Downtofalle wär ich wohl auch getappt

K-H