怎么把字符一个一个连起来?

Question

定义一个ansistring s
s:=s+buf[i]

Answer 1

edit1.text显示为空 
label1.caption可以正常显示
但我要用Edit来显示

Answer 2

静态显示即可
能告诉我为什么edit无法显示而label可以?

Answer 3

string本身就是个字符串,可以使用s[i]来取得每一个字符,i是从开始算的.s:string;
edit1.text:=s;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
buf:string;
i:integer;
begin
  setlength(buf,5);
  for i:=1 to 5 do
    buf[i]:='a';
  edit1.Text:=buf;
end;end.

Answer 5

我让edit显示的符号是乱码，是不是edit.text不支持乱码？