Discussion :

[vexal]

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

[anapurna]

salut

Code :

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

requete:= TQuery.Create(requete);

dans ton create tu fait reference a l'instance future de ton objet pas encore creer et c'est vraiment pas bien

remplace par

Code :

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

requete:= TQuery.Create(self);

@+ Phil

[vexal]

quand je met self, il ne veut plus compiler :

[Erreur] U_Patient.pas(112): Types incompatibles : 'TComponent' et 'TPatient'

[anapurna]

salut


c'est quoi ton TPatient ?
salut sinon tu met a nil mais faut pas oublier de faire le free
de ton instance

@+ Phil

[TicTacToe]

Salut
essaye

Code :

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

requete:= TQuery.Create(Self.Owner);

[vexal]

En mettant self.owner, il me dit à la compilation :

[Erreur] U_Patient.pas(112): Identificateur non déclaré : 'Owner'

Sinon TPatient, c'est ma classe.
J'ai peut-etre mal déclaré ma classe, je ne programme en delphi que depuis quelques jours.

Code :

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

1
2
3
4
type
  TPatient = class
private
   ....

[slimjoe]

Bonjour!

Je ne crois pas que l'affectation du Owner ne produise cette erreur. Mets nil si tu veux, ça va donner le même résultat. Le Owner est le composant qui détruira le query lors de sa propre destruction. Si tu le détruit toi même, le Owner ne sert plus à rien. (Tiens je viens de lire sjrd qui a écrit exactement la même chose )

Code :

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

requete:= TQuery.Create(requete);

Ce code n'est pas vraiment propre () mais ne devrait pas provoquer d'erreur. C'est l'équivalent de

Code :

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

requete:= TQuery.Create(nil);

Une erreur abstraite survient généralement quand on appelle une méthode abstraite qui n'a pas été implémentée. Le truc est de savoir quelle méthode est appellée quand l'erreur survient.

Est-ce que tu sais EXACTEMENT sur quelle ligne l'erreur survient ?
Est-ce que tu as essayé de compiler SANS le try/except pour qu'on puisse voir exactement le message d'erreur (quoi que ce dernier ne gère déjà que EDBEngineError et soulève tout le reste) ?