level 7
var
pd: PDouble;
begin ReallocMem(pd, SizeOf(Double));
pd^ := 99.9;
ShowMessage(FloatToStr(pd^));
FreeMem(pd);
2015年02月22日 17点02分
1
pd: PDouble;
begin ReallocMem(pd, SizeOf(Double));
pd^ := 99.9;
ShowMessage(FloatToStr(pd^));
FreeMem(pd);
