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 :bouncing4:

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

...:cat:...

[Teclis]

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

Thx for help,
Teclis :bouncing4:

[Sharky]

Zitat:

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

:wall: :wall:

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