memo控件的应用,谢谢

Question

有两个控件memo1,memo2 一个button控件
我想把memo1里面的内容从上到下的逐个循环方式 
每条进行对应的修改,要求是Tstrings(修改内容我另外语句处理)然后显示到memo2里面, 
要求memo2里面显示出的内容和memo1里面的内容相对应 
如memo1 中有空格的,同样memo2中相对应的行也是空格 谢谢 

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
i:integer;
StrLength:integer;
begin
memo2.Text:='';
i:=1;
strlength:=Length(memo1.text);
while i<strlength do
begin
str:=memo1.Text[i];
//这里修改str
memo2.Text:=memo2.Text+str;
i:=i+1;
end;
end;