1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
| procedure TFPrincipal.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
var
Lasterror: Integer;
TextError: String;
begin
TextError := 'Erreur pendant l''opération demandée, tentative impossible.';
if (E is QuelQuelChose) then
begin
case AnsiIndexStr(SourceErreur,['liaison logiciel','sauvegarde','préférences réseau','Nonidentifié']) of
0:
MessageDlg('L''accès à la liaison logiciel n''est pas possible actuellement.'+#13+#10+
'La base de données ' + Logiciel.Base +#13+#10+
'blabla'
,mtError,[mbOK],0);
1:
begin
MessageDlg('L''accès à la sauvegarde n''est pas possible actuellement.'+#13+#10+
'La base de données ' + Logiciel.Base +#13+#10+
'blabla'
,mtError,[mbOK],0);
end;
2:
MessageDlg('L''accès aux préférences réseau n''est pas possible actuellement.'+#13+#10+
'La base de données ' + Logiciel.Base +#13+#10+
'blabla'
,mtError,[mbOK],0);
else
begin
LastError := xxx.Count-1;
if LastError >= 0 then
begin
Case StrToIntDef((xxxx.SQLState),-1) of
3001 : TextError := 'Argument invalide ou taille maxi de la base atteint.';
3002 : TextError := 'Impossible d''ouvrir votre session.';
//...
end;
With TFFicheErreurs.Create(Self) do
begin
Try
//... Je raccourci
ShowModal;
Finally
Release;
End;
end;
end
else
begin
With TFFicheErreurs.Create(Self) do
begin
Try
//... Je raccourci
ShowModal;
Finally
Release;
End;
end;
end;
end;
end;
end
else
begin
if (E is EDivByZero) or (E is EZeroDivide) then TextError :='Division par zéro impossible.'
else
if E is EFOpenError then TextError :='Fichier introuvable ou ouverture impossible.'
else
if E is EFCreateError then TextError :='Impossible de créer le fichier.'
else
if E is //...
if (SourceErreur <> 'Scroll sComboBox') then
begin
With TFFicheErreurs.Create(Self) do
begin
Try
//... Je raccourci
ShowModal;
Finally
Release;
End;
end;
end;
end;
end; |
Partager