类型转换的问题！(50分)

S

shopman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-19

• #1

gg := TMemoryStream.Create;
ff := TFileStream.Create('e:/abc', fmOpenReadWrite);
ff.Seek($000000aa, 0);
ff.Read(k1, 4)

ff.Read(k2, 4);

ff.Seek(k1, 0);
gg.CopyFrom(ff, k2);
p := gg.Memory;
pp := gg.Size;


k1 和 k2 怎么转换？？？

 

S

shopman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-19

• #2

我知道了！！！

k1 : ^Integer;
k2 : ^Integer;
k3 : Integer;
k4 : Integer;

move(k1, k3, 4);
move(k2, k4, 4);

ff.Seek(k3, 0);
gg.CopyFrom(ff, k4);

就OK了。。。。。。

 

F

firstrose

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-20

• #3

比如
k1:longword;
k2:longword absolute k1;

明白了？根本不要转换的。

 

S

shopman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-20

• #4

多人接受答案了。