删除memo某一行varI:integer;str:String;beginforI:=0toMemoUrlList.lines.count-1dobeginif(MemoUrlList.lines.Strings[I]='vurl')thenbeginMemoUrlList.lines.delete(I);end;end;
删除memo某一行var I :integer ; str :String ;beginfor I := 0 to MemoUrlList.lines.count -1 dobegin if (MemoUrlList.lines.Strings[I] ='vurl') then begin MemoUrlList.lines.delete(I) ; end;end ;