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

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

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

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

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

var i:integer; begin Memo2.Lines.Clear; for i := 0 to memo1.Lines.Count -1 do begin Memo2.Lines.Add(memo1.Lines.Strings[i]); end; end;

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

var i:integer;begin for i := 0 to memo1.lines.count - 1 do begin //你的操作 end;end; delphi里面,变量赋值用的是:=,比较符用的= 如: i := 0; //给i赋值if i = 0 then //比较i的值begin i := 1;end;

procedure TForm1.Button1Click(Sender: TObject);var I, J, PosReturn, SkipChars: Integer;begin for I := 0 to Memo1.Lines.Count do //进行逐行查找 begin PosReturn := Pos('#',Memo1.Lines[I]); //此处是查找该行内是否有"#"号 if PosRetu

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

一般情况下需要得到列表型字符串控件都是采用的遍历方法,这里有两个文本控件,所以需要采用两个遍历并且是嵌套进行,下面是实例,刚才测试过: procedure TForm1.Button3Click(Sender: TObject); var x,y:integer; begin for x:=0 to memo2.Lin...

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

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