Discussion :

[DevJak68]

Bonjour,

je souhaite comprendre une instruction pour savoir ce qu'elle récupère exactement :

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  RecBuf: TRecordBuffer; // où TRecordBuffer = PByte; dans Data.DB
  Data: Variant;
  Index: Integer;
begin
....
Index := ....
Data := PVariantList(RecBuf+SizeOf(TRecInfo))[Index];
....
end;

sachant que la variable locale Index calculée peut être un entier qq > 0 et on a comme type

Code :

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

1
2
3
4
5
6
7
8
9
type
  PVariantList = ^TVariantList;
  TVariantList = array[0..0] of Variant;
 
  PRecInfo = ^TRecInfo;
  TRecInfo = record
    RecordNumber: Integer;
    BookmarkFlag: TBookmarkFlag;
  end;

Par avance merci