V
vai
Unregistered / Unconfirmed
GUEST, unregistred user!
蚯
蚯蚓
Unregistered / Unconfirmed
GUEST, unregistred user!
var
Stream:TxxxStream;
Data:array of xxxx;
begin
...
if Length(Data)>0 then
Stream.Read(Data[Low(Data)],Length(Data)*SizeOf(Data[Low(Data)])
...
end;
Stream:TxxxStream;
Data:array of xxxx;
begin
...
if Length(Data)>0 then
Stream.Read(Data[Low(Data)],Length(Data)*SizeOf(Data[Low(Data)])
...
end;
C
cytown
Unregistered / Unconfirmed
GUEST, unregistred user!
@_@
H
Hexi
Unregistered / Unconfirmed
GUEST, unregistred user!
@_@
蚯
蚯蚓
Unregistered / Unconfirmed
GUEST, unregistred user!
好大的眼睛！
<font color=red>我有被扒光了衣服的感觉</font>
<font color=red>我有被扒光了衣服的感觉</font>
C
cAkk
Unregistered / Unconfirmed
GUEST, unregistred user!
蚯蚓: "被扒光了衣服的感觉"是什么感觉? 好难想象哦. 
V
vai
Unregistered / Unconfirmed
GUEST, unregistred user!
好亏啊！前面有类似问题。
那就回答这个吧：
pp:^single;
如何将从pp开始指向的一个区域的数据整体赋值给一ARRAY。
那就回答这个吧：
pp:^single;
如何将从pp开始指向的一个区域的数据整体赋值给一ARRAY。
蚯
蚯蚓
Unregistered / Unconfirmed
GUEST, unregistred user!
毛主席教导我们说：
想知道被扒光了衣服的感觉，就一定要<B>试一试</B>
想知道被扒光了衣服的感觉，就一定要<B>试一试</B>
H
Hexi
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么能被扒光了衣服呢？
你既然有被扒光了衣服的感觉，那么你以前一定"试过"(毛主席教导你的),何不
谈谈你如何被扒光了衣服的过程呢？haha?!
你既然有被扒光了衣服的感觉，那么你以前一定"试过"(毛主席教导你的),何不
谈谈你如何被扒光了衣服的过程呢？haha?!
V
vai
Unregistered / Unconfirmed
GUEST, unregistred user!
先要创建“扒光"的类型，然后才能引用其实例。hehe
离题了喂，快回答问题吧，各位高手。
离题了喂，快回答问题吧，各位高手。
V
vai
Unregistered / Unconfirmed
GUEST, unregistred user!
快请出手，等着救命啊！
A
Another_eYes
Unregistered / Unconfirmed
GUEST, unregistred user!
arr: array of single;
p:^single;
setlength(arr, n)
// n=准备从p开始赋多少个
move(p^, arr[0], sizeof(single)*n);
p:^single;
setlength(arr, n)
// n=准备从p开始赋多少个
move(p^, arr[0], sizeof(single)*n);
蚯
蚯蚓
Unregistered / Unconfirmed
GUEST, unregistred user!
vai:
你要干什么？？
这种无类型的数据传送建议你还是不要用吧，
除非是流读写的时候，
否则用处不大
你要干什么？？
这种无类型的数据传送建议你还是不要用吧，
除非是流读写的时候，
否则用处不大
A
Another_eYes
Unregistered / Unconfirmed
GUEST, unregistred user!
无类型传输用处很大的. 甚至可以用于类型转换.
比如取得single型的十六进制数.
var
a: single;
b: Integer;
move(b, a, sizeof(single));
showmessage(inttohex(b, 8));
比如取得single型的十六进制数.
var
a: single;
b: Integer;
move(b, a, sizeof(single));
showmessage(inttohex(b, 8));
V
vai
Unregistered / Unconfirmed
GUEST, unregistred user!
如果
p:^single;
arr:array of double;
时怎么办？可能一次赋值吗？
p:^single;
arr:array of double;
时怎么办？可能一次赋值吗？
蚯
蚯蚓
Unregistered / Unconfirmed
GUEST, unregistred user!
>>move(b, a, sizeof(single));
>>showmessage(inttohex(b, 8));
有必要吗？
<font color=red>
var
S:Single;
P:^Integer;
begin
P:=@S;
ShowMessage(IntToHex(P^,8));
end;</font>
不就得了？
>>showmessage(inttohex(b, 8));
有必要吗？
<font color=red>
var
S:Single;
P:^Integer;
begin
P:=@S;
ShowMessage(IntToHex(P^,8));
end;</font>
不就得了？
H
Hexi
Unregistered / Unconfirmed
GUEST, unregistred user!
type
TSingleArray=array[0..1] of Single;
PSingleArray=^TSingleArray;
var
pSingleArray;
arr:Array of Single;
Move(arr[0], P^[0], Length(arr)*Sizeof(Single));//将arr一次赋给P^
for i:=0 to Length(arr)-1 do ShowMessage(FloatToStr(P^)+FloatToStr(arr[i+Low(arr)]));//显示
TSingleArray=array[0..1] of Single;
PSingleArray=^TSingleArray;
var
p
SingleArray;arr:Array of Single;
Move(arr[0], P^[0], Length(arr)*Sizeof(Single));//将arr一次赋给P^
for i:=0 to Length(arr)-1 do ShowMessage(FloatToStr(P^)+FloatToStr(arr[i+Low(arr)]));//显示
V
vai
Unregistered / Unconfirmed
GUEST, unregistred user!
...
C
CJ
Unregistered / Unconfirmed
GUEST, unregistred user!
??
不是解决了吗？
蚯蚓：我们就不尝试了，还是您这位“被扒”先驱介绍经验吧
BTWCAKK:What's ''?
不是解决了吗？
蚯蚓：我们就不尝试了，还是您这位“被扒”先驱介绍经验吧
BTWCAKK:What's '
'?
V
vai
Unregistered / Unconfirmed
GUEST, unregistred user!
??