String 和 AnsiString 问题请教

Question

var
a : Array [1..10] of String;
begin
  a[1] := '1111……111';//(大于255个1)
  a[2] := '123';//(字符串123)
end;运行时delphi对a[1]报错。。把 a : Array [1..10] of String; 改成 a : Array [1..10] of AnsiString; 也一样。
请问高手有什么方法可以解决？a[1] 是一定要赋值。。而且要超过255个字节的。。

Answer 1

拆分
a[1]:='...';
a[1]:=a[1]+'....'

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  S:array[1..10]of string;
  I:Integer;
begin
  for i:=1 to 255 do
    s[1]:=S[1]+'1';
  s[2]:='123';
  Caption:=s[1];
end;
好像没错也

Answer 3

你的'1111……111';这个有问题。string是可以存储许多字符。但是用引号括起来的就不能超过255了。这样。'1111..111' + '22222..22222'//用两个比255少的连接起来……