J'ai un problème lors de la libération d'un tfilestream :
J'ai un message d'erreur (violation access) lors de la libération du fichier (Free) s'il y a eu une exception lors du create alors que d'après l'aide la methode Free marche même si l'objet n'est pas initialisé![]()
Est-ce normal ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 procedure TForm1.Button1Click(Sender: TObject); var fichier: TFileStream; begin try fichier := TFileStream.Create('test.txt', fmOpenWrite or fmShareExclusive); except // On MessageDlg('Erreur ouverture', mtError, [mbOK], 0); end; fichier.Free; end;
Partager