procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ComponentCount-1 do
begin
try
tquery(FindComponent(Components[i].Name)).Active:=false;
Except
Continue;
end;
end;
end;
Kod yazarken açık kalan veri tabanı hepimiiziz belasıdır.
Ben kısa bir kod yazdım ısımı goruyor. Sizde deneyin
espedon@hotmail.com