N
netbug
Unregistered / Unconfirmed
GUEST, unregistred user!
请看：
procedure TForm1.Button1Click(Sender: TObject);
var
a:ansistring;
begin
edit1.text:=inttostr(sizeof(a));
setlength(a,10);
a:='1234567';
edit2.text:=inttostr(sizeof(a));
end;
我在两个edit中显示字符串a的长度都是4，我感到奇怪：
一：难道setlength(a,10)语句不起作用？a:='1234567'不是
可以赋给字符串a有7个字符吗？
二：setlength该如何用?
procedure TForm1.Button1Click(Sender: TObject);
var
a:ansistring;
begin
edit1.text:=inttostr(sizeof(a));
setlength(a,10);
a:='1234567';
edit2.text:=inttostr(sizeof(a));
end;
我在两个edit中显示字符串a的长度都是4，我感到奇怪：
一：难道setlength(a,10)语句不起作用？a:='1234567'不是
可以赋给字符串a有7个字符吗？
二：setlength该如何用?