Question

delphi问题：删除多行文本的问题

在一个memo编辑框中有100多行文本，我想删除前18行文本，我的代码是这样的：
for n := 0 to 17 do
begin
Memo1.Lines[n]:=''
end;

但结果却只是删除了第一行的，其它的17行都没有删除。。。问题出在哪儿　？请好心人指点一下。。谢谢。。（本人没分了，实在抱歉）

Answer 1

for I := 0 to 17 do
Memo1.Lines.Delete(0);
//这里面i只起个记数的作用，每次删除第一条是用索引0，
//删除此条后，下面一条自动向上，所以下次删除的时候也要用0作索引。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for I := 0 to 17 do
memo1.Lines.Delete(0);
end;
end.
=========================================
懒虫007 | 十二级
讲的是正确的！

Answer 3

加载到TSTRINGLIST，然后删除对应的行后，再保存进去

Answer 4

for n := 0 to 17 do
begin
Memo1.Lines.Delete(n);
end;