Recherche:

Effectivement, le comportement redevient plus sain en désoptimisant ! :ccool:

ReadSize:=Size;
AllocConsole;
WriteLn('ReadSize = ', IntToStr(ReadSize)); // 100
WriteLn('Size = ', IntToStr(Size)); // 100
Seek(id^.F_File, Offset);
BlockRead(id^.F_File, Data,...

Dans la mesure où le code ci-dessous fonctionne également, mais où le paramètre Size vaut lui aussi la valeur mystère après exécution (!) :

function lyRead(id: PSQLite3_File; Data: PByteArray;...

Bonjour,
Un petit problème amusant dans une fonction : un paramètre entier change de valeur dans le code suivant...

function lyRead(id: PSQLite3_File; Data: PByteArray; Size: integer; Offset:...