Startseite | Infos für Behinderte | Behindertensoftware | Forum | Programmierarchiv | Webguide | Markus privat | Kontakt | Download | Gästebuch | Online Games | Entstehungsgeschichte

Alle Komponenten eines bestimmten Typs löschen

Im folgenden Beispiel werden alle Komponenten auf einem StringGrid gelöscht, die vom Typ TImage sind.


procedure TFrmVersuch.Neu1Click(Sender: TObject);
var
I: Integer;
 begin
I := 0;
 while I < StringGrid1.ControlCount do
 begin
if (StringGrid1.Controls[I] is TImage) then
 begin
with (StringGrid1.Controls[I] as TImage) do
 begin
Destroy;
 end;
 end else
 Inc(I);
 end;
 end;

zurück zum Stichwortverzeichnis