一个有趣的事情，大家过来看看(0分)

天真 · 2002-07-16

procedure TForm1.Button1Click(Sender: TObject);
var aa : pChar;
buffer : array [1..1024] of char;
s:string;
i :integer;
begin
aa :='fasdfasdf';
s:=aa;
for i :=1 to length(s) do
buffer := s;
showmessage(buffer);
end;
你们觉得BUFFER的值为多少？？？？

秋之叶 · 2002-07-16

在用buffer前先设定一下长度
SetLength(Buffer, Length(s));

IamWLJ888 · 2002-07-16

什么意思, BuFFER的值是fasdfasdf!!!

张无忌 · 2002-07-16

buffer为空???

ICDB · 2002-07-16

不就是'fasdfasdf'吗？

张无忌 · 2002-07-16

BUFFER的长度定了，用的着设长度吗?

crystal · 2002-07-16

出乱码，改成：

for i :=1 to length(s) do
buffer := s;
buffer := #0;

就没事了

远帆 · 2002-07-16

天真兄，最近为什么不开QQ？
buffer : array [1..1024] of char;
这样声明的数组内容是不定的，所以要想保持数据不变，还应该手工添加#0字符啊。你说
是不是？
新工作如意吗？我们QQ上聊？

天真 · 2002-07-16

远帆呀，不是我不开，只能在晚上开呀！公司不让的

天真 · 2002-07-16

这个问题远帆说对了，最后是会出现乱码的

ugvanxk · 2002-07-16

aa :='fasdfasdf';
//strcopy(aa,'fasdfasdf');
s:=aa;
//s:=string(aa);
for i :=1 to length(s) do
buffer := s;

张无忌 · 2002-07-16

一般我在用字符数组前都FILLCHAR();一次数组,你的说的问题都没了
而且可以用COPYMEMORY来做,就不用拷被了

张无忌 · 2002-07-16

FillChar(buffer,1024,0);
copymemory(@buffer,@s[1],length(s));
就OK了

天真 · 2002-07-18

接受答案了.

一个有趣的事情，大家过来看看(0分)

天真

Unregistered / Unconfirmed

秋之叶

Unregistered / Unconfirmed

IamWLJ888

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

ICDB

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

crystal

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

ugvanxk

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

Similar threads