10/05/04 08:37:43
Cうろ覚えだけど愚直に移すならこんな感じか。
type
Float = Single;
PFLoat = ^Single;
TFloatArray = array [0..High(Integer) div SizeOf(FLoat)-1] of Float;
PFloatArray = ^TFloatArray;
var
range_0: array [0..1] of Float = (0,255);
ranges: array[0..0] of PFloatArray = (@range_0);
ranges[0][0] ==> 0
ranges[0][1] ==> 255