Valentyn J. Mykylyuk
3/24/2005 5:28:00 AM
> var p:^real;
> i,j:integer;
> x:real;
> ...
> (p+i*j)^:=x; //IOOO ?¦I EAOA "Operator not applicable to this
> operand type"
>
> ÷ ?IIO OOAAI, ¦ NE ?OE?EIOII UOIAEOE ?
a UOIAEOE YI EIO¦?? IAAEOO?AOE AEIAI¦?IEE IAOE? Real?
oAE, O Delphi IIOIE?I OIU¦IAII?O?AOE O¦IOEE ?EAU¦?IEEE, A IA ?EOAUE U
IEE. o O?IIO ?E?AAEO IIOII UOIAEOE, NE I¦I¦IOI, A?IIA O?IOIAAIE.
1)
type
PReal = ^Real;
var
p: PReal;
i, j: Integer;
x: Real;
// ...
PReal(Integer(p)+i*j)^ := x;
2)
type
PRealArray = ^TRealArray;
TRealArray = array[0..$FFFF] of Real;
var
p: PRealArray;
i, j: Integer;
x: Real;
begin
// ...
p^[i*j] := x;
--
o O?AOAIEAI, valentin@viii.ntu-kpi.kiev.ua
iEEEIAE ÷AIAIOEI nOIOIA?I?E? valentyn.m@gmail.com