hab da n stück tp code, der sich auch ohne weiteres vom fpc compilieren lässt und funktioniert im fpc mode oder tp compatibilitätsmodus allerdings nicht in objfpc mode
Ich will das aber in ne komponente packen also brauch ich den.
Das Problem ist denk ich hier zu suchen
Code: Alles auswählen
TPxHeader = packed RECORD
recordSize : word;
headerSize : word;
fileType : byte;
maxTableSize : byte;
numRecords : longint;
nextBlock : word;
fileBlocks : word;
firstBlock : word;
lastBlock : word;
unknown12x13 : word;
modifiedFlags1 : byte;
indexFieldNumber : byte;
primaryIndexWorkspace : pointer;
unknownPtr1A : pointer;
unknown1Ex20 : array[$001E..$0020] of byte;
numFields : integer;
primaryKeyFields : integer;
encryption1 : longint;
sortOrder : byte;
modifiedFlags2 : byte;
unknown2Bx2C : array[$002B..$002C] of byte;
changeCount1 : byte;
changeCount2 : byte;
unknown2F : byte;
tableNamePtrPtr : ^pchar;
fldInfoPtr : PFldInfoRec;
writeProtected : byte;
fileVersionID : byte;
maxBlocks : word;
unknown3C : byte;
auxPasswords : byte;
unknown3Ex3F : array[$003E..$003F] of byte;
cryptInfoStartPtr : pointer;
cryptInfoEndPtr : pointer;
unknown48 : byte;
autoIncVal : longint;
unknown4Dx4E : array[$004D..$004E] of byte;
indexUpdateRequired : byte;
unknown50x54 : array[$0050..$0054] of byte;
refIntegrity : byte;
unknown56x57 : array[$0056..$0057] of byte;
case INTEGER of
3: (fieldInfo35 : array[1..255] of TFldInfoRec);
4: (fileVerID2 : integer;
fileVerID3 : integer;
encryption2 : longint;
fileUpdateTime : longint; { 4.0 only }
hiFieldID : word;
hiFieldIDinfo : word;
sometimesNumFields:integer;
dosCodePage : word;
unknown6Cx6F : array[$006C..$006F] of byte;
changeCount4 : integer;
unknown72x77 : array[$0072..$0077] of byte;
fieldInfo : array[1..255] of TFldInfoRec);
da sind etliche pointer drin und ich denke die sind im fpc mode 16 bit und im objfpc mode 32 bit
nun ist die frage wie sag ich dem compiler das er für diese unit 16 bit pointer gebrauchen soll oder bin ich da ganz aufm holzweg ?
Die Zielkomponente hört übrigends auf den namen TParadoxDataSet
Dürfte also sicherlich auch für einige von euch interessant sein
Wird zwar nur lesen können aber das reicht ja in den meissten fällen auch...