如何把array [] of char 转换成 string,在线等(100分)

ld3235 · 2006-03-28

我的办法是: Buf  :array [0..200]of char; Msg_Content:string; for i:=0 to Msg_Length do begin   Msg_Content:=Msg_Content+Buf; end; 但感觉很不好,期待其他好点简便的方法

fan2588 · 2006-03-28

Buf  :array [0..200]of char; 把这个改成 Buf:string[200]; 不行么?

41426277 · 2006-03-28

var Buf  :array [0..200]of char; Msg_Content:string; begin buf:='windows'; Msg_Content:=buf; showmessage(Msg_Content); ............

ld3235 · 2006-03-28

fan2588,不可以 41426277,你的转换是错的

xuxiaohan · 2006-03-28

procedure TForm1.Button1Click(Sender: TObject); var  Buf  :array [0..200] of char;  Msg_Content:string; begin  buf:='aaa';  msg_content:=buf;  showmessage(msg_content); end; 测试通过！

ld3235 · 2006-03-28

我试下,可以就给分了

xuxiaohan · 2006-03-28

带长度copy。。。用这个。 procedure TForm1.Button1Click(Sender: TObject); var  Buf  :array [0..200] of char;  Msg_Content:string; begin  buf:='aaa';  setlength(Msg_content, length(buf));  strCopy(pchar(Msg_content), buf);  showmessage(msg_content); end;

shangshang · 2006-03-28

如果中间不包含#0 则直接赋值即可： procedure TForm1.Button1Click(Sender: TObject); var  ca: array[0..20] of char;  I: integer;  str: string; begin  for I := 0 to 20 do  begin    ca := 'x';  end;  Str := ca;  ShowMessage(str); end;

LSUPER · 2006-03-28

这是最最快的，而且保证不会丢失 Buff 的内容（楼上那个 #0 后的内容没了，可以看看转换后的长度）： var  Buf: array [0..200]of char;  Msg_Content: string; begin  Buf := 'hello';  SetLength(Msg_Content, Length(Buf));  Move(Buf, PChar(Msg_Content)^, Length(Buf));  ShowMessage(Msg_Content); end;

ld3235 · 2006-03-28

大家试下这个: var Buf  :array [0..200]of char; Msg_Content:string; begin  buf[0]:=#0;  buf[1]:='1';  buf[2]:='2';  Msg_Content:=midstr(buf,1,2);  showMessage(Msg_Content); 我只要后面的'12',怎么才能取到后面的'12'

ld3235 · 2006-03-28

LSUPER的方法应该是对的,记得看到过,不过忘了,抽烟回来测试对了就给分

ld3235 · 2006-03-28

给分了,谢谢,呵呵,搞定了

xuxiaohan · 2006-04-03

晕倒，这样给分的。

如何把array [] of char 转换成 string,在线等(100分)

ld3235

Unregistered / Unconfirmed

fan2588

Unregistered / Unconfirmed

41426277

Unregistered / Unconfirmed

ld3235

Unregistered / Unconfirmed

xuxiaohan

Unregistered / Unconfirmed

ld3235

Unregistered / Unconfirmed

xuxiaohan

Unregistered / Unconfirmed

shangshang

Unregistered / Unconfirmed

LSUPER

Unregistered / Unconfirmed

ld3235

Unregistered / Unconfirmed

ld3235

Unregistered / Unconfirmed

ld3235

Unregistered / Unconfirmed

xuxiaohan

Unregistered / Unconfirmed

Similar threads