这是一个小号大号没分了没办法各位帮办忙
一个edit一个按钮一个memo 再edit里面输入数据点击按钮把数据插入到memo里面,进行一个判断是否memo里面已经有了如果有就不插入如果没有就插入。第一次用memo这个控件。希望详细点。
一个edit一个按钮一个memo 再edit里面输入数据点击按钮把数据插入到memo里面,进行一个判断是否memo里面已经有了如果有就不插入如果没有就插入。第一次用memo这个控件。希望详细点。
解决方案 »
- 两个panel重叠,拖动上层的panel下层panel移动怎样实现?
- 如何在dbgrideh中调用dbgrideh
- 皮肤控件(skindata)与opendialog控件有冲突怎么办?一旦有皮肤控件(skindata)那么执行opendialog.Execute就出错!
- 程序运行到一半时,在任务管理器看到其显示为未响应,此时CPU占用为0.请问这都有可能是什么原因造成的.
- 关于类型常量的问题
- delphi+access,表中有图片,该怎样显示出来呢?
- 怎样把InterBase库里的表导出为文本文件?
- 声讨万网,我现在被万网气得吐血
- 我用delphi5打开delphi6的工程,不幸因此导致dfm文件变成了空白,有办法恢复吗?
- 屏幕保护程序的预览问题
- 如何通过网页元素获得网页插件框,并且获取里面的数值
- 如何给托盘定义一个双击事件?
memo.lines.indexof( edit.txt )
看看memo的帮助就知道了,他的lines是一个strings
有相关的事例嘛?
一行行加入的,用memo1.lines.indexof(s)判断是不是已有
一行里追加的,用pos来判断是不是已有
procedure TForm1.Button1Click(Sender: TObject);
begin
if Pos(edit1.Text,memo1.Text) = 0 then //判断edit1内容有没有在memo里面, 没有的话, 就添加。
begin
Memo1.Lines.Add(edit1.Text);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if memo.lines.indexof( edit.txt ) = -1 then //判断edit1内容有没有在memo里面, 没有的话, 就添加。
Memo1.Lines.Add(edit1.Text)
else
showmessage('已经有此行');
end;