Panel mit Label dynamisch erzeugen

[DeddyH]

Wenn ich Millionen Instanzen einer Klasse erzeuge und mir damit den Speicher vollhaue, kann FastMM auch nichts mehr machen, klar. Aber wenn ich mir z.B. eine Listenklasse definiere, die Objekte verwaltet, die wiederum selbst Unterobjekte erzeugen, bin ich froh, wenn FastMM mir meldet, ob der ganze Kladderadatsch auch wieder sauber entsorgt wird bzw. in welchen Fällen eben nicht. Darauf wollte ich eigentlich hinaus.

[himitsu]

Es müssen keine Millionen sein.

Probier es einfach mal aus ... egal welchen Button du drückst und danach die (Haupt)Form schließt, die 100 Forms der Schleife werden niemals gemeldet.

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var i: Integer;
begin
  System.ReportMemoryLeaksOnShutdown := True;
  for i := 1 to 100 do TForm5.Create(Self);
end;

procedure TForm5.Button2Click(Sender: TObject);
var i: Integer;
begin
  System.ReportMemoryLeaksOnShutdown := True;
  for i := 1 to 100 do TForm5.Create(Self);
  TForm5.Create(nil);
end;

[DeddyH]

Die sollten ja auch vom Owner freigegeben werden, oder hab ich was übersehen?

[himitsu]

Zitat von DeddyH:

Die sollten ja auch vom Owner freigegeben werden, oder hab ich was übersehen?

Jupp, aber dennoch ist es, wärend der Existenz des Owners, bzw. wärend das Programm läuft, ein "Speicherleck", auch wenn es dann "zu spät" gschlossen wird.
Und genau das ist auch der Grund, warum FastMM dieses niemals mitbekommt.
z.B. in einen Timer ist sowas nicht sehr optimal untergebracht.

[DeddyH]

Immerhin werden die ja noch beseitigt (wenn auch spät). Mir geht es darum, aufzuspüren, welche Objekte auch nach Programmende noch im Speicher kleben, weil ich irgendwo eine Freigabe übersehen habe.

[mkinzler]

Das kann man umgehen, wenn man den richtigen Owner setzt.

[DeddyH]

Ich rede jetzt nicht unbedingt von Komponenten, meine Klassen haben ja nicht zwangsgerade einen Owner.

[himitsu]

@

Zitat von DeddyH:

Mir geht es darum, aufzuspüren, welche Objekte auch nach Programmende noch im Speicher kleben, weil ich irgendwo eine Freigabe übersehen habe.

Wozu? Windows räumt dann doch eh alles auf.

Für mich ist es egal wann ein "Speicherleck" existiert, denn es können Beide arge Probleme bereiten.

Und abgesehn davon könntest du deinen Klassen doch einen Owner mitgeben ... [sarkasmus] dann brauchst'e dich niewieder um Speicherlecks zu sorgen und diese selber abschaffen [/sarkasmus].

[hans ditter]

also irgendwie steh ich jetzt gerade richtig auf dem Schlauch. Ich wollte gerade die Idee von DeddyH mit dem PageControl umsetzten und frag mich gerade, wie ich die Komponenten von meinem Formular auf das PageControl kriege. Ich dachte da wäre eine Eigenschaft Parent oder so, aber nix (... zumindest hab ich nix gefunden ...)

Ich steh grad total auf dem Schlauch... wenn mir nochmal jemand helfen könnte...

thx, hans ditter

[DeddyH]

Parent müsste aber eigentlich richtig sein. Allerdings dann nicht das PageControl angeben, sondern das entsprechende TabSheet.