Bonjour,

Lors de l'exécution du code ci-dessous, quand il est sur la ligne en gras, un message d'erreur apparait :
Le projet Import.exe a provoqué une classe d'exception EAbstractError avec le message 'Erreur abstraite'. Processus stoppé.
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
procedure TPatient.verifPatientExiste;
var
   requete : TQuery;
begin
     try
        requete:= TQuery.Create(requete);
        requete.DatabaseName := 'P2ADMIN';
        requete.SQL.Clear;
        requete.SQL.Add('SELECT .....');
        requete.open;
        requete.Free;
     Except
       On EDBEngineError do Exit;
       end;
end;
Ce code se trouve à l'intérieur d'une classe.
Si je le sors de ma classe, il marche bien.

Qu'est-ce qui ne va pas d'après vous ?

Merci