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;