rmml.net
当前位置:首页 >> 关于DElphi的MEmo1删除重复项的问题! >>

关于DElphi的MEmo1删除重复项的问题!

提醒你一下 Memo1.Lines.Indexof('Memo2') 的意思是'Memo2'的内容所在的索引值 所以 当Memo1.Lines.IndexOf('Memo2') = -1 的时候,说明里面没有这个内容 建个临时列表保存不重复的值,之后再返回到Memo1里。

保存文件名相同,肯定被无声覆盖了,你试着把"文本名称.TXT"的名字前面用日期,精确到秒的日期来试一下作为文件名试试,或者找D的参考文档看看SaveToFile()的参数

窗体form创建前,memo都没创建好,所以 memo1.SetFocus ; 是会报错的。 你可以在 memo1.SelStart :=3; //光标的位置 memo1.SetFocus ; 放到FormMouseMove 事件下。

可用以下代码读取Memo中指定行的内容: var aLine:String;begin aLine:=Memo1.Lines[2];end;在使用中,读取的行在Memo中需要保证是存在的,否则会导致异常。 对于数组Lines的索引取值范围为0-Memo1.Lines.Count; 如果超过此范围,取得的数据为空。

ShowMessage(Memo1.Lines[0]); //显示Memo内第一行的内容。

memo1.Lines.Text := memo1.Lines.Text + ' ' + Str3;

这个其实很简单。 var a:integer; procedure TForm1.memo1Click(Sender: TObject); begin a:=SendMessage(Memo1.Handle,EM_LineFromChar,Memo1.SelStart,0); //获取当前行号 edit1.Text:=memo1.Lines.Strings[a]; //记录显示 end;

做这种东东的时候不要去计算它的高度,因为MainMenu是默认置顶的,而状态栏的align:=albottom,因此只要你设置Memo.align=alclient;它就会自动调整了,你在菜单事件中就只需要色设置Statusbar的隐藏与显示。

procedure TForm1.Button1Click(Sender: TObject);begin memo1.Clear;end;效果如下:

procedure TForm1.Button2Click(Sender: TObject); var docname: string; begin if SAvedialog1.Execute then begin if rightstr(savedialog1.FileName, 4) '.doc' then docname := savedialog1.FileName + '.doc'; memo1.Lines.SaveToFile(docn...

网站首页 | 网站地图
All rights reserved Powered by www.rmml.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com