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 : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Partager