Letztes TabSheet(PageControl) bleibt beim löschen stehen !

[Teclis]

Moinsen....
ich habe folgendes Problem: Ich habe ein PageControl auf dem ich zur Laufzeit TTabsheets mit jeweils einem Memo erzeuge. Nun will ich alle löschen und bis auf das letzte werden auch alle gelöscht ! Aber warum das letzte nicht ?

Mit dieser Schleife habe ich es probiert :

Delphi-Quellcode:

for i:=0 to PageControl1.PageCount do begin
 NewMemo[i].Free;
 Pagecontrol1.Pages[i].Free;
 end;

In freudiger Erwartung auf Kommentare...

Teclis

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Honie]

Auf jeden Fall muss es Pagecount-1 heissen, da Pages ein 0-basiertes Array ist und
somit von 0 bis Pagecount-1 indiziert werden kann.

[Sharky]

Hai Teclis,

ich habe zum Test mal diesen Code geschrieben:

http://www.sharkys-home.de/smiles/finger.gif

Delphi-Quellcode:

var
 MyMemos : Array [0..10] Of TMemo;
 MyPages : Array [0..10] Of TTabSheet;

procedure TForm1.Button1Click(Sender: TObject);
var
 ndx : Integer;
begin
 for ndx := 0 to 10 do
  begin
   MyPages[ndx] := TTabSheet.Create(self);
   MyPages[ndx].PageControl := PageControl1;
   MyMemos[ndx] := TMemo.Create(self);
   MyMemos[ndx].Parent := MyPages[ndx];
   MyMemos[ndx].Visible := True;
   MyMemos[ndx].Align := alClient;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 ndx : Integer;
begin
 for ndx :=0 to PageControl1.PageCount-1 do
  begin
  MyMemos[ndx].Free;
  MyPages[ndx].Free;
  end;
end;

Er macht das ohne Probleme.

[sakura]

Und hier mein Vorschlag:

Code:

[color=#f50000]for i:=Pred(PageControl1.PageCount) downto 0 [/color]do begin 
  NewMemo[i].Free; 
  Pagecontrol1.Pages[i].Free; 
end;

Das hatten wir schon oft, beim Löschen aus Listen müssen diese RÜCKWÄRTS durchlaufen werden, da sich während des Löschens der Index der folgenden Seiten ändert

......

[Teclis]

Hallo Zusammen...
danke ....jetzt funzt es !!!

Thx for help,
Teclis

[Sharky]

Zitat von sakura:

Das hatten wir schon oft, beim Löschen aus Listen müssen diese RÜCKWÄRTS durchlaufen werden, da sich während des Löschens der Index der folgenden Seiten ändert

Er greift ja über den Seitenindex zu und nicht über sein Array. Habe ich total überlesen