Nö. Das müsste du so machen (Ich schätze du willst überprüfen ob es eine Komponente auf dem Form gibt, die ein Shape ist, oder):
Delphi-Quellcode:
var
i: Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TShape then
(Components[i] as TShape).Text := '';
end;
Das ist ein Code von Mr. Spock vom 23.4.03 (Suche!!
)
Dabei werden alle komponenten auf dem Form durchlaufen, es wird überprüft ob es ein Shape ist, und wenn, weird es gelöscht.
Man liest sich, Stanlay 8)