Delphi从Memo去重数据
摘要:
var i: Integer; s: string; begin for I := 0 to mmo1.Lines.Count - 1 do begin s := mmo1.Lines[i]; mmo1.Lines.Delete(i); while mmo1.Lines.IndexOf(s) > - 阅读全文
posted @ 2020-03-25 16:39 癫狂编程 阅读(372) 评论(0) 推荐(0)