Discussion :

[XeGregory]

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;

[SergioMaster]

Bonjour,

ma première réaction :plutôt qu'un try except il faudrait utiliser un try finally
ma deuxième : je ne vois pas à quoi sert le code si List est détruit juste après son chargement , il doit manquer un traitement

[Andnotor]

ma deuxième : je ne vois pas à quoi sert le code si List est détruit juste après son chargement , il doit manquer un traitement

C'est plutôt l'inverse, la liste n'est jamais détruite à part en cas d'exception

Dans le premier exemple, si list ne peut être créé (manque de ressources), list.free génère une nouvelle exception. C'est le seul problème qui puisse se poser.
Il peut y avoir le même problème dans le deuxième cas mais en plus puisque le retour d'Execute n'est pas testé, LoadFromFile peut échouer si le fichier n'existe pas ou est verrouillé.

[SergioMaster]

C'est plutôt l'inverse, la liste n'est jamais détruite à part en cas d'exception

Exact mais je pensais déjà : après correction de except en finally
N.B. je n'avais pas vu le 2°code écrit après la rédaction de mon message

[ShaiLeTroll]

Pourquoi un coup if OpenTextFileDialog.Execute then qui est la bonne façon de faire et un autre Execute(); qui n'est pas la bonne façon ?
Pourquoi un with et pas l'autre ... curieux de construire ses codes façon aussi différente

Bon, c'est semble-t-il résolu mais on ne sait pas trop pourquoi ?

[alheuredudejeuner]

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
18
19
20
 
List := TStringList.Create;
OpenTextFileDialog := TOpenTextFileDialog.Create(nil);
try
  with OpenTextFileDialog.Execute do
  try
    List.LoadFromFile(FileName);
    StatusBar.Panels[1].Text := ExtractFileName(FileName);
  except {Si Erreur}
    On E:Exception do
    begin
      // le message d'erreur est e.message
    end;
  end;
Finally  //quoi qu'il arrive
  OpenTextFileDialog.free;
  List.Free;
  Free;// free de quoi, vérifier si c'est bien le bon endroit pour la libération
End;
Crldt