本文整理自网络,侵删。
删除memo某一行
var
I :integer ;
str :String ;
begin
for I := 0 to MemoUrlList.lines.count -1 do
begin
if (MemoUrlList.lines.Strings[I] ='vurl') then
begin
MemoUrlList.lines.delete(I) ;
end;
end ;
相关阅读 >>
winapi 字符及字符串函数(14): chartooem、oemtochar
Delphi 读文件到十六进制的函数(Delphi 7 下可用)
Delphi实现获取文件及文件夹大小(支持超过2g的大文件)
Delphi中sendmessage给一个edit控件发送wm_settext消息
更多相关阅读请进入《Delphi》频道 >>