var
a: string;
i:integer;
begin
i:=20;
setlength(a,i);//这句不起作用,Delphi的说明是可以的
.
.
.
end;

原来是这样定义的
var
a: string[20]

可是20不是固定的.