Discussion :

[ShaiLeTroll]

J'ai un problème sur l'allocation de pointeur sur une structure, le new n'Initialize pas les données, c'est à dire qu'il ne la rempli pas avec des Zéros

Code :

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

1
2
3
4
5
6
7
{* ----------------------------------------------------------------------------}
function THPrimMessage.NewPatient(const Index: Integer): PHPrimStructPatient;
begin
  New(Result);
  Result^.SegmentType := HPRIM_SEGMENT_TYPE[hstPatient];
  Result^.SegmentNum := Index + 1;
end;

Code :

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

1
2
3
4
5
6
7
PHPrimStructPatient = ^THPrimStructPatient;
  THPrimStructPatient = record
    SegmentType: string;                                 // 8.1
    SegmentNum: Integer;                                 // 8.2
    IDDemandeur: record
      ID: string;        
      ...

cela contient aussi des TDateTime et des Enumérations, mon problème c'est que ceci ne sont pas mis à Zéro, alors que le New normalement doit mettre à Zéro tous les champs

Dans une application de test, cela fonctionne parfaitement
Dans l'application réelle, cela laisse trainer des valeurs !

Etrange, quelqu'un a déjà eu un problème similaire ?
Une directive de compilation ?

[sjrd]

New n'initialise que les champs qui requièrent une initialisation. Donc les string et les tableaux dynamiques, oui, par exemple. Mais les énumérations ou les entiers, il n'est en rien tenu de les initialiser. Si tu veux mettre des zéros dans ta structure, utilise FillChar.

[ShaiLeTroll]

Ah, donc le fait que mes DateTime ou Enumération dans mon application des tests, n'est qu'un hazard d'une faible charge de mémoire ?
Il est vrai que c'est rare que j'ai ce genre de type et que j'ai surtout besoin de controler leur contenu car je ne remplis que partiellement les structures alors que la plupart du temps, je faisais une initialization propre et explicite de chaque champ (j'en ai trop dans mon cas)

bon, je vais donc faire comme je le faisais pour mes GetMem

Code :

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

1
2
3
4
5
6
7
8
{* ----------------------------------------------------------------------------}
function THPrimMessage.NewPatient(const Index: Integer): PHPrimStructPatient;
begin
  New(Result);
  ZeroMemory(Result, SizeOf(Result^));
  Result^.SegmentType := HPRIM_SEGMENT_TYPE[hstPatient];
  Result^.SegmentNum := Index + 1;
end;

ZeroMemory appelle FillChar, c'est juste plus clair pour la maintenance du code ...

[sjrd]

Un p'tit alors ?