FindComponent

[delphinia]

hi,

wie kann ich ALLE Objekte löschen die sich auf meienr Form befinden, die einem Bestimmten namen habe!

zb habe ich 50 Labels drauf die alle lab_1,lab_2,lab_3 usw heissen.
Dadurch das ich aber nicht weiss wieviele es wirklich sind, weiss ich nicht wie ich arbeiten soll.

Dachte an

Delphi-Quellcode:

  for x := 0 to MAXIMAL do
  begin
    (FindComponent('lab_' + IntToStr(x)) as Tlabel).Free;
  end;

aber für MAXIMAL habe ich halt keinen Wert ;([xml]

[Neutral General]

Delphi-Quellcode:

Maximal := Form1.ControlCount-1;

Aber vor dem Freigeben prüfen ob das was du da hast auch wirklich ein Label ist ;)

Gruß
Neutral General

[Dax]

Du könntest statt FindComponent zu benutzen durch die .Components iterieren und checken, ob der Name deinen Bedingungen entspricht.