[delphi]Retour de fonction - Type incompatible

Marsh Posté le 31-03-2005 à 15:18:05

bonjour,

sous delphi 7,
j'ai créé une classe TClient
ds 2 autres classe(A et B) j'ai ajouté les déclarations

Code :

type
PClient = ^TClient;
TlisteClient = array of PClient;
private
listeClient : TlisteClient;

ds A j'ai la fonction :

Code :

function TdmMain.getListeClient(): TlisteClient;
begin
result := listeClient;
end;

et ds B j'appelle cette fonction :

Code :

listeClient := DmMain.getListeClient();

et j'ai l'erreur sur cette dernière ligne : type incompatible !
voila si quelqun peut m'aider, là je desespère...

Message édité par flam182 le 31-03-2005 à 15:18:58

Reply

Marsh Posté le 31-03-2005 à 15:18:05

Reply

Marsh Posté le 31-03-2005 à 16:46:58

bon j'ai déplacé les déclarations suivantes des classes A et B, ds la classe TClient

Code :

PClient = TClient;
TlisteClient = array of PClient;

ca compile, mais ca plante lors de l'exécution sur la création d'un client (ca dois boucler dessus)
je vois donc pas comment m'en sortir...

Message édité par flam182 le 31-03-2005 à 16:47:28

Reply

Marsh Posté le 31-03-2005 à 17:50:57

"ça plante" = ?

C'est quoi cette liste de pointeurs de TClient ? C'est un peu bizarre ton truc...

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 01-04-2005 à 08:40:12

je débute,
mais ds ce cours http://fbeaulieu.developpez.com/guide/, ds la section pointeurs
c ce qu'il conseil...

J'ai qd même viré les pointeurs, et ca ne marche tjrs pas
lorsque je suis en mode pas a pas, le programmme bloque sur le premier objet client créé :

Code :

listeClient[i].Create

Ma classe client

Code :

unit client;
interface
type
TClient = class
public
idClient : Integer;
nomClient : String[20];
abvClient : String[11];
aftermarket : boolean;
stock : boolean;
end;
PClient = TClient;
TlisteClient = array of PClient;
implementation
end.

Reply

Marsh Posté le 01-04-2005 à 09:24:13

rah g trop fais le boulet, il fallait écrire :
listeClient[i]:= TClient.Create;

ca fonctionne...

Reply

Marsh Posté le 01-04-2005 à 09:46:11

L'utilisation de pointeurs ici est inutile, vu que les objets sont déjà des pointeurs vers des instances de classes. On pourrait donc avoir un array of TClient directement.

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 01-04-2005 à 09:50:19

ok merci antp

Reply

[delphi]Retour de fonction - Type incompatible

Sujets relatifs:

Leave a Replay