TEdit的问题。

Question

如何将一个有16个字符的字符串，分别放到4个TEdit中，每个TEdit中放4个字符。
就像这样：xxxx xxxx xxxx xxxx

Answer 1

Edit1.Text:=Copy(S,1,4);
Edit2.Text:=Copy(S,5,8);
...

Answer 2

Edit1.Text:=Copy(S,1,4);
Edit2.Text:=Copy(S,5,4);
Edit3.Text:=Copy(S,9,4);
Edit4.Text:=Copy(S,13,4);

Answer 3

var s:string;
.......
procedure TForm1.FormCreate(Sender: TObject);
begin
        s:='123456789abcdefg';
end;procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text:=Copy(S,1,4);
   Edit2.Text:=Copy(S,5,4);
   Edit3.Text:=Copy(S,9,4);
   Edit4.Text:=Copy(S,13,4);end;