[D7][TAdoConnection]Creation dynamique / fuite de mémoire
Bonjour.
J'ai testé le très simple code ci-dessous et je me suis aperçu qu'il y avait systématiquement une fuite de mémoire d'environ 1500 octets...
Le problème est que pour mon test, ce n'est pas grave, mais pour mes autres programmes, cette même fuite mène vite à des Méga octets !
Est-ce que je m'y prends mal quelque part ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| procedure TForm1.Button1Click(Sender: TObject);
var
myConnection : TADOConnection ;
begin
myConnection := TADOConnection.create(Form1);
with myConnection do
begin
LoginPrompt := false ;
Connected := false ;
ConnectionString := Form1.ADOConnection1.ConnectionString ;
connected := true ;
end;
myConnection.Connected := false ;
freeandnil(myConnection);
end; |
