XgaletteX
Messages postés102Date d'inscriptionsamedi 14 mai 2005StatutMembreDernière intervention12 août 2005
-
20 juil. 2005 à 12:41
XgaletteX
Messages postés102Date d'inscriptionsamedi 14 mai 2005StatutMembreDernière intervention12 août 2005
-
20 juil. 2005 à 14:34
Bonjour,
J'ai un sérieux problème,
En faite je dois gérer une liste de patients, qui à chaque patient est associée une liste de questions, et à chaque questions est associé une liste de réponses, comment faire en plus les patients , questions et réponses correspondent chacun à des records
XgaletteX
Messages postés102Date d'inscriptionsamedi 14 mai 2005StatutMembreDernière intervention12 août 2005 20 juil. 2005 à 13:07
C ce que j'ai fait , j'ai fait une liste de patients, qui pour chaque élément pointe sur une classe patient qui contient tout les records, le problème ce que je vois pas comment faire pour chaque patient une liste de questions ( avec le record correpondant ) et pour chaque question une liste de reponses (avec le record correspondant)
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 20 juil. 2005 à 14:11
tu peux structurer tes donnees ainsi:
tu fais
une liste de patients
une liste de questions
une liste de reponse
patient pointe sur une liste de questions
chaque question pointe sur sur la reponse corespondante
au moment de l'enregistrement tu n'as plus qu'a faire
correspondre les pointeurs ainsi a tout moment tu peux retrouver la
correspondance patients > questions >reponses
type
PQ = ^Q;
Q = record
NumQuestion: integer;
Libelle: string;
IDPHEN: integer;
end;
type
PR = ^R;
R = record
NumReponse: integer;
Libelle: string;
IDPHEN: integer;
IDVALPHEN: integer;
end;
type
PQuestion = ^Question;
Question = record
ListeReponse: tlist;
PReponse: ^R;
Identite: Q;
end;
type
V = record
IDANAATG: integer;
IDPHEN: integer;
IDVALPHEN: integer;
end;
type
N = record
IDANAATG: integer;
Libelle: string;
end;
type
TAnalyse = class
public
constructor Create;
destructor Destroy;
protected
private
Identite: PP;
ListeQuestions: Tlist;
PQuestion: PQuestion;
end;
var
Analyse: TAnalyse;
implementation
constructor TAnalyse.Create;
begin
ListeQuestions := Tlist.Create;
end;