小编den*_*enn的帖子

我需要阅读每一行memo1.lines并对其执行特定操作.我试过这个:

procedure TForm1.Button2Click(Sender: TObject);
var
  zoznam: TStringList;
  Line: string;
  i       : Integer;
begin
  zoznam := TStringList.Create;
  zoznam.Assign(Memo1.Lines);
  for i := 0 to zoznam.Count-1 do
  begin
    edit1.Text := Memo1.Text;
    Button1.Click;
  end;
end;

但是,它将每一行都放入一个字符串中,我想分别读取每一行(读一行,做一些事情,阅读下一行,做一些事情......)