看似简单的问题：array of char(动态array) 转换为string的方法(7分)

T

tianzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #1

procedure TForm1.FormCreate(Sender: TObject);
var
mychar:array of char;
tmp:tstringlist;

begin
setlength(mychar,1);
mychar[0]:='t';
tmp:=tstringlist.create;
tmp.Add(mychar); //Incompatible types: 'string' and 'dynamic array'
showmessage(tmp.Strings[0]);
end;


用tmp.Add(string(mychar)); 结果错误，因为string的下标从1开始

 

M

macwong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #2

tmp.Add(mychar);
换成
for i:=0 to high(mychar) do
tmp.add(mychar);

 

T

tianzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #3

真的需要这么麻烦啊

 

F

fengfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #4

好像只能写for循环.我也是这么干的.单独写函数啊.累.

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #5

tmp.Add(PChar(mychar[0]));
or
tmp.Add(StrPas(mychar));

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #6

用StrPos函数。

 

T

tianzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #7

tmp.Add(StrPas(mychar));
[Error] Unit1.pas(34): E2010 Incompatible types: 'Array' and 'Char'

tmp.Add(PChar(mychar[0])); 有非法内存访问

 

T

tianzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #8

StrPos 函数 返回一个字符串在另一个字符串中首次出现指针
好像没用吧？

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #9

楼主，应该这么写：tmp.Add(StrPas(@mychar));

 

W

whlxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #10

tmp.Add(PChar(mychar[0]));

 

T

tianzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #11

tmp.Add(StrPas(@mychar)); //结果不对 是个?

 

V

vvyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #12

帮您看看。。。

 

T

tianzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #13

用tmp.Add(string(mychar)); 结果不确定，我这里是ta

 

T

tianzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #14

现在唯一正确的是tmp.Add(Copy(PChar(@mychar[0]), 1, Length(mychar)));

有些烦琐

 

V

vvyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #15

procedure TForm1.Button1Click(Sender: TObject);
var
Len: Integer;
mychar: array of Char;
s: string;
begin
Len := 1;
SetLength(mychar, Len);
mychar[0] := 'a';

//根本用不着 TStringList，下面两句话解决问题
s := PChar(mychar);
SetLength(s, Len);

showmessage(s);
end;

 

T

tianzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #16

用TStringList是因为char要add到TStringList中，不是为了中转
你的方法等价于
tmp.Add(Copy(PChar(mychar), 1, Length(mychar)));

 

T

tianzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #17

看来一定是得这么烦琐了

 

V

VictorWoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #18

用这个函数：

function chartostring(Bufchar;length:integer):string;//char转变成string
var
s:string;
begin
setlength(s,length);
move(Buf[0],s[1],length); //不能用strcopy
result:=s;
end;

 

O

osly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #19

var
mychar:array of char;
tmp:tstringlist;

begin
setlength(mychar,2); //把1改成2
mychar[0]:='t';
tmp:=tstringlist.create;
tmp.Add(string(mychar));
showmessage(tmp.Strings[0]);

end;

 

T

tianzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-05

• #20

楼上的方法居然好用，什么道理