Discussion :

[colorid]

Bonjour,

Si je déclare une structure telle que :

Code :

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

1
2
3
4
5
6
7
 
Type
  TmyStruc = record
    ... blabla ...
  end;
Var
  myStruc : TMystruc;

et que je prenne la précaution de vider ma structure par FullChar(myStruc,SizeOf(TmyStruc),#0) avant de l'adresser comme paramètre à une procédure ou fonction, comment savoir si elle est vide ?

Je veux dire que si ma fonction est du type FaisQuelqueChose( myStruc ) avant de commencer l'algorithme de ma fonction comment vérifier que myStruc n'est pas vide sans contrôler tous les champs du record ?

Quelqu'un connait-il un truc ?

[ShaiLeTroll]

Tu peux faire un ZeroMemory (FillChar #0), et tester l'égalité à Zéro pour les entiers, les doubles, nil pour les chaines et pointeurs ... sinon passer avec du variant qui gère la nullité, le vide et une valeur ... sinon en faisant croire à Delphi que ton record est un tableau de Byte, genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
  PtrS, Ptr: PByte;
begin
  Ptr:= PByte(@myStruc); 
  PtrS := Ptr;
  While Ptr <> nil do
    Inc(Ptr); 
 
  Vide := (Integer(Ptr) = Integer(PtrS) + SizeOf(myStruc));
 
  ...
end;

[colorid]

J'ai essayé le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function TristiIsEmpty(const Rec:TPeekTristimulus ): boolean;
var
  PtrS, Ptr: PByte;
begin
  Ptr:= PByte(@Rec);
  PtrS := Ptr;
  While Ptr <> nil do
    Inc(Ptr);
 
  Result := (Integer(Ptr) = Integer(PtrS) + SizeOf(TPeekTristimulus));
end;

avec

Code :

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

1
2
3
4
5
var
  Tristi: TPeekTristimulus;
begin
  FillChar(Tristi,SizeOf(TPeekTristimulus),#0);
  if TristiIsEmpty(Tristi) then beep;

Gros silence ! pas plus de beep que...

[colorid]

curieusement à la ligne result :
Ptr est à nil et donc Integer(Ptr) = 0
Ptrs est une adresse de type $12F544 et donc Integer(Ptrs) = 1242436
SizeOf(TPeekTristimulus) = 52

Donc result est à false

[ShaiLeTroll]

si tu lit la boucle, tu vois qu'elle continue jusqu'à ce que cela soit nil, avec le inc, cela se produit, cela indique en général que tu n'es plus dans de la mémoire accessible ... si quelqu'un pourrait expliquer ce phénomène, je serais preneur ...

peut être que mettre

Code :

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

  While (Ptr^ = 0) and (Ptr < PtrS) do

cette variante devrait avoir plus d'effet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function IsEmptyRecord(const Rec; SizeOfRec: Cardinal): boolean;
var
  Ptr: PByte;
  PtrEnd: Cardinal;
begin
  Ptr:= PByte(@Rec);
  PtrEnd := Cardinal(Ptr) + SizeOfRec;
  While (Ptr^ = 0) and (Cardinal(Ptr) < PtrEnd) do
    Inc(Ptr);
 
  Result := (Cardinal(Ptr) = PtrEnd);
end;

Code :

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

1
2
3
4
5
6
7
8
procedure TFrmTestMemory.BtnIsEmptyRecord(Sender: TObject);
var
  Tristi: TPeekTristimulus;
begin
  FillChar(Tristi,SizeOf(TPeekTristimulus),#0);
  if IsEmptyRecord(Tristi, SizeOf(TPeekTristimulus)) then
    beep;
end;

[Franck SORIANO]

Dans l'autre sens ce serait mieux :

Code :

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

While (Cardinal(Ptr) < PtrEnd) and (Ptr^ = 0) do

Sinon tu risques de lire ptr^ alors que tu as Cardinal(Ptr)>=PtrEnd.
Autrement dit, tu risques de lire un octet en dehors de la structure, ce qui peut se traduire par un access violation si tu n'as pas de chance...

[colorid]

Ok ça marche

C'est d'autant plus intéressant que cette fonction peut être appelée pour n'importe quelle structure.

Mile merci

[guillemouze]

sinon tu peux aussi comparer la memoire avec un objet vide.
Par contre, il te faut initialiser une variable qui servira de comparatif, et n'est pas valable quel que soit le type de record. Le bon cote de la chose, c'est que si tu as des constantes pour ton record, tu peux directement les comparer.

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
16
17
18
19
20
21
22
 
type
  TMyRec = record
    x: word;
    y: char;
    z: pointer;
  end;
 
const
  MyEmptyRec: TMyRec = (); //tout  0, nil, ...
  MyFilledRec: TMyRec = (x: 5098; y: 'C'; z: Pointer($123456)); 
 
var
  mr: TMyRec;
  x: boolean;
begin
  mr := MyEmptyRec;
  CompareMem(@mr, @MyEmptyRec , sizeof(TMyRec)); //true
  mr := MyFilledRec;
  CompareMem(@mr, @MyFilledRec, sizeof(TMyRec)); //true
  CompareMem(@mr, @MyEmptyRec , sizeof(TMyRec)); //false
end;