Discussion :

[bigmonstre]

bonjour
j'ai procedure dans laquelle j'enregistre mes données dans Tetat= record
dans une seconde procedure je fais appel à ces données qui ont été deja enregistrées
le probleme c'est que le resultat est toujours =0
donc il n'y a pas de lecture à vrai dire, que dois je faire dans ce cas ?

[Andnotor]

Si TEtat est passé en paramètre à la première procédure, il devrait être défini en var.

Si ce n'est pas ça, montre-nous ton code !

[Dr.Who]

tout a fait, par variable ou pointeur.

exemple :

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
23
24
25
26
27
28
 
type
  PState = ^TState;
  TState = packed record
    A, B : integer;
  end;
 
function CreateState(A, B: integer): TState;
begin
  result.A := A;
  result.B := B;
end;
 
procedure SetState(var aState: TState; A, B: integer);
begin
  aState.A := A;
  aState.B := B;
end;
 
function TestStateA(aState:TState; A : integer): boolean;
begin
  result := aState.A = A;
end;
 
function TestStateB(aState: TState; B: integer): boolean;
begin
  result := aState.B = B;
end;

[bigmonstre]

bonjour,
en fait je ne sais pas ce que j'ai fais, mais après le week-end j'ai remis mon programme en marche et la tous va bien, c'est bizarre certes mais bon, moi aussi je ne sais pas comment ça marche maintenant!!