* more complete TValueData record

git-svn-id: trunk@36906 -
This commit is contained in:
svenbarth 2017-08-14 20:26:55 +00:00
parent a0aaa69c0f
commit 56459594c0

View File

@ -47,10 +47,17 @@ type
3: (FAsObject: Pointer);
4: (FAsClass: TClass);
5: (FAsSByte: Shortint);
6: (FAsSWord: Smallint);
7: (FAsSLong: LongInt);
8: (FAsSingle: Single);
9: (FAsDouble: Double);
10: (FAsExtended: Extended);
11: (FAsComp: Comp);
12: (FAsCurr: Currency);
13: (FAsUInt64: QWord);
14: (FAsSInt64: Int64);
15: (FAsMethod: TMethod);
16: (FAsPointer: Pointer);
end;
{ TValue }