如何将一个有16个字符的字符串,分别放到4个TEdit中,每个TEdit中放4个字符。
就像这样:xxxx xxxx xxxx xxxx
Edit1.Text:=Copy(S,1,4);
Edit2.Text:=Copy(S,5,8);
...
Edit1.Text:=Copy(S,1,4);
Edit2.Text:=Copy(S,5,4);
Edit3.Text:=Copy(S,9,4);
Edit4.Text:=Copy(S,13,4);
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;