Discussion :

[Just-Soft]

Salut;
J’ai plusieurs tables à ouvrir, je veux intercepter l'erreur si jamais elle se produit, et en retour afficher le nom de la table qui a provoqué l'erreur.

Pour cela j'ai fais ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
try
    Table1.Open;
    Table2.Open;
    Table3.Open;
    .
    .
    .
    Tablen.Open; 
except raise Exception.CreateFmt('Erreur lors de l''ouverture de la table ', ['%s']);
end;

Mais je n’ai pas eu le résultat escompté. Où est le problème?

Merci.

[sjrd]

Tu ferais bien de faire un coup de sur Format (utilisé par CreateFmt), parce que ce n'est pas du tout comme ça qu'on utilise les chaînes de format.

[Just-Soft]

si j'ai donné le code c'est pour me corriger sinon j'ai tout essayé mais je tourne en rond.

[Kaféine]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Exception.CreateFmt('Erreur lors de l''ouverture de la table %s', [NomDeLaTable]);

dans ton cas je suggère:

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
 
procedure OuvrirTables;
 
procedure OuvrirTable(ATable: TTable);
begin
  try
    ATable.Open;
  except
    on E: Exception do 
      MessageDlg(Format('Erreur lors de l''ouverture de la table %s', [ATable.Name]), mtError, [mbOk], 0);
  end;
end;
 
begin
OuvrirTable(Table1);
OuvrirTable(Table2);
...
end;