我想让字符串包括多个char(0),请问怎样实现?(200分)

W

wonderxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #1

谢谢

 

M

mezw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #2

str1:='111'+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0+#0;

 

陈

陈晨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #3

var s:string;
begin
s:='123';
s:=s+#0+#0+#0;
showmessage(inttostr(length(s)));
end;
显示的值是6.

 

W

wonderxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #4

但我想让它显示出来,可#0后来的不能显示
procedure tform1.create(sender:tobject);
var s:string;
begin
s:='abc'+#0+'123';
caption:=s;//只能显示'abc'
end;

 

F

fei_l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #5

var s:string;
i,sCount:integer;
begin
s:='123'
// 字符串
sCount:=5
// char(0)的个数
for i:=0 to sCount-1 do
s:=s+#0
// 加在后面的，如果加在前面的，则：s:=#0+s;
showmessage(inttostr(length(s)));
end;

 

L

lichdr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #6

但我想让它显示出来,可#0后来的不能显示
procedure tform1.create(sender:tobject);
var s:string;
begin
s:='abc'+#0+'123';
caption:=s;//只能显示'abc'
end

---------------------------------------
是這樣的。
用字符數組吧。自己控制。

 

Q

qince

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #7

你用string本来就显示不了，string是以ANSI 0 为结束的。改用其他吧，比如array of PChar

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #8

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
begin
s := 'abc' + #0 + '123';
for i := 1 to length(s) do
if s = #0 then
s := ' ';
caption := s;

end;

 

W

wonderxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-31

• #9

多人接受答案了。