alle dynamisch erzeugten shapes freigeben?

[SirThornberry]

FindComponent ist so ziemlich die schlechteste Lösung. Dabei wird intern nix anderes gemacht als alle Componenten durchzugehen in einer Schleife und die Namen zu überprüfen. Dementsprechend performant ist diese Variante auch, zudem finde ich die Variante reichlich unprofessionell da man sich das ganze vereinfachen kann wenn man die gewünschten Komponenten in ein Array oder eine Liste stopft.

du brauchst dazu deiner AddMethode nur eine Zeile hinzufügen

Delphi-Quellcode:

fListe: TList;
[...]
fListe := TList.Create; //das ins onCreate und natürlich dann im OnDestroy wieder freigeben
[...]
procedure TForm1.Button1Click(Sender: TObject); 
var i:integer; 
shape:TShape; 
begin 
  for i := 1 to sp_scheibenzahl.value do
  begin 
    Shape := TShape.Create(self); 
    Shape.Name :='im_st1'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl); 
    Shape.Parent := Form1; 
    shape.Width := 100; 
    shape.Height := 15; 
    shape.Top := Stapel[Startstapel].Top - (15 * (Stapel[Startstapel].Anzahl+1)); 
    shape.Left := Stapel[Startstapel].left - (shape.Width div 2); 
    shape.Shape := stRoundRect; 
    fListe.Add(shape); // <-- Diese Zeile hinzufügen
    inc(Stapel[Startstapel].Anzahl); 
  end; 
end;

und zum löschen dann ganze einfach

Delphi-Quellcode:

var i: Integer;
begin
  for i := 0 to fListe.count - 1 do
    TShape(fliste.Items[i]).Free;
  fListe.Clear;