EAbstractError avec Query

Bonjour,

Lors de l'exécution du code ci-dessous, quand il est sur la ligne en gras, un message d'erreur apparait :

Citation:

---

Le projet Import.exe a provoqué une classe d'exception EAbstractError avec le message 'Erreur abstraite'. Processus stoppé.

---

Code:

---

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

salut

Code:

---

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:

---

requete:= TQuery.Create(self);

---

@+ Phil

quand je met self, il ne veut plus compiler :

Citation:

---

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

---

salut


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

@+ Phil

Salut
essaye

Code:

---

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

---

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

Citation:

---

[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:

---

1 2 3 4

type TPatient = class private ....

---

Non non tu dois juste mettre nil en paramètre, tu n'as rien de fait de mal à ta classe ;)

Code:

---

requete := TQuery.Create(nil);

---

Ne pas oublier d'un jour le libérer :

Code:

---

requete.Free;

---

En fait, il faut spécifier le propriétaire de ton TQuery (qui est d'abord un TComponent). De cette manière, le propriétaire saura qu'il faut libérer le TQuery le moment voulu.

Donc par exemple, retrouve ta varialbe form et

Code:

---

requete:= TQuery.Create( [propriétaire = ta forme] );

---

ta form, peut être 'form1', ca dépend de ton code...

ou nil, comme le dit Anapurna avec dé-allocation perso.

:EDIT: ET sjrd ;)

J'ai mis

Code:

---

requete:= TQuery.Create(nil);

---

et ça marche impeccable.

Merci à tous !

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:

---

requete:= TQuery.Create(requete);

---

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

Code:

---

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) ?

Citation:

---

Envoyé par TicTacToe

Code:

---

requete:= TQuery.Create( [propriétaire = ta forme] );

---

ta form, peut être 'form1', ca dépend de ton code...

---

En fait ma classe est dans une Unit, seule et sans form donc c'est pour ça que je doit mettre nil je pense.

salut

c'est aussi du au fait que ta classe decend de tobject (par defaut si on ne presice pas la classe mere) plutot que tcomponent

@+ Phil

Salut

Dans ces cas, c'est que je fait est faire moi même le free dans le destructeur de la classe. Quelque chose comme ça

Code:

---

1 2 3 4 5 6 7

destructor TPatient.Destroy; begin if Assigned(requete) then FreeAndNil(requete);   inherited; end;

---

A+