procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
begin
b:='中华人民共和国';
a:=b[3];
ShowMessage(a);
end;取出来的a的值为[ ,为何?
var
a,b:string;
begin
b:='中华人民共和国';
a:=b[3];
ShowMessage(a);
end;取出来的a的值为[ ,为何?
a,b:string;
begin
b:='中华人民共和国';
a:=b[3]+b[4];
ShowMessage(a);
end;