Discussion :

[cochet]

Bonjour,
J'utilise encore Delhi4. Mais là n'est pas le problème. Si je veux forcer la mise à jour des tables Paradox avec la fonction DBISaveChanges du BDE je rencontre un problème avec le mot réservé Abort qui se trouve dans differentes procèdures du DataModule.
Exemple:
J'ajoute DBIProcs dans la clause uses de mon unité

Code :

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

1
2
3
4
5
6
7
Procedure DM.TableBeforeDelete(Dataset: TDataSet);
Begin
If Confirm('Supprimer cet enregistrement?') then
   Delete
Else
  Abort;
End;

Lors de la vérif de la syntaxe ou de l'éxecution j'ai le message d'erreur suivant:
Instruction attendue, mais expression de type Integer trouvée.
Juste en dessous de l'instruction Abort.
Qui sait comment remédier à cette erreur?
Merci d'avance pour votre aide.


[Balise code ajoutée par Bloon]

[Amenofis]

Salut,

peut-être qu'en supprimant la virgule après le Abort...


@+

[mariustrezor]

J'y pensais aussi mais je ne pense pas que le problème soit à ce niveau. Ce point-virgule spécifie juste la présence d'une instruction vide. Je crois qu'il faut chercher ailleurs.

On progresse…

[JustMe]

Non ton erreur provient de ton Delete car delete est fonction qui supprime une sous chaine à partir d'une chaine de caractère
Tu dois mettre :

Code :

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

Table.Delete

[cochet]

Bonjour,
J'ai oublié de mettre table.Delete dans mon message mais dans ma procédure c'est OK comme tu le dis. Table.Delete mais l'ereur existe toujours.
A+

[JustMe]

je dois te dire alors que ta fonction confirm ne retourne pas un boolean.

[cochet]

Bonjour,
Ma fonction Confirm renvoie bien un boolean. La voici

Code :

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

1
2
3
4
Function Confirm(Msg:string): Boolean;
Begin
Result := MessageDlg(Msg, mtConfirmation, mbYesNoCancel,0) = mrYes;
End;

Je pense que le problème viens d'une non compatibilité entre les fonctions du BDE et la fonction Abort.
Mais qui pourra m'indiquer une solution pour forcer les mises à jour dans les tables Paradox car il arrive parfois des corruptions d'index ou d' enregistrement de données qui ne s'effectue pas


[Balise code ajoutée par Bloon]

[Bloon]

Je pense que le problème viens d'une non compatibilité entre les fonctions du BDE et la fonction Abort.

Une telle incompatibilité apparaîtrait à l'exécution et non à la compilation mais de toutes façons, on peut utiliser Abort avec le BDE !!! La seule erreur dans le code que tu nous fournis est Delete, qui devrait être DataSet.Delete. Ton erreur vient donc d'ailleurs. Abort est-elle bien la procédure de SysUtils ? Essaye SysUtils.Abort

Bloon

[cochet]

Merci Bloon il faut effectivement mettre SysUtils.Abort pour supprimer le message d'erreur