Question

Delphi里的memo,如何实现逐个读取?

我要删除某些memo1里不必要的内容,然后写入memo2里!!!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
memo2.Clear;

if memo1.Lines.Count > 0 then
for i := 0 to memo1.Lines.Count do
Memo2.Lines.Add(memo1.Lines[i]);
end;

对不需要的内容进行判断，不写入

Answer 2

memo2.text:=mome1.text;
memo1.clear;