Free komponenter
jeg opretter nogle komponenter under runtime af typen TClientServer se http://www.eksperten.dk/spm/225886disse vil jeg selvfølgelig gerne Free igen på et passende tidspunkt i min kode, min eneste reference til dem er at de har formen som forældre, derfor gør jeg følgende
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
cs : TClientSocket;
begin
for i := 0 to ComponentCount-1 do
begin
if (Components[i] is TClientSocket) then
if not (Components[i] as TClientSocket).Active then
(Components[i] as TClientSocket).Free;
end;
end;
Det virker fint når der kun er en hvis der er flere får jeg en ListIndex out of bounds, jeg tænker at det er fordi min ComponetCount ikke passer længere og måske ikke hvordan løses det ?
