Bonjour,

j'ai un souci lors de la fermeture d'un "TOpenTextFileDialog", (Violation d'accès)

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
var List: TStringList;
...
if OpenTextFileDialog.Execute then
 begin
    try
      List := TStringList.Create;
      List.LoadFromFile(OpenTextFileDialog.FileName);
      StatusBar.Panels[1].Text := ExtractFileName(OpenTextFileDialog.FileName);
    except {Si Erreur}
       List.Free;
    end;
 end;
En mode création : Pas de violation d'accès lors de la fermeture du "TOpenTextFileDialog", auriez-vous une explication ?

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
17
var List: TStringList;
OpenTextFileDialog: TOpenTextFileDialog;
...
OpenTextFileDialog := TOpenTextFileDialog.Create(nil);
with OpenTextFileDialog do
 begin
   Execute();
    try
      List := TStringList.Create;
      List.LoadFromFile(FileName);
      StatusBar.Panels[1].Text := ExtractFileName(FileName);
      Free;
    except {Si Erreur}
       List.Free;
       Free;
    end;
  end;