TListView列表拒绝添加重复信息

//TListView列表拒绝添加重复信息

procedure TForm1.Button1Click(Sender: TObject);

            var

              i: Integer;

            begin

              if (Trim(Edit1.Text)<>'') then

              begin

                for i := 0 to ListView1.Items.Count-1 do

                if Trim(Edit1.Text) = Trim(ListView1.Items[i].Caption) then

                begin

                  Exit;

                end;

              end;

              ListView1.Items.Add.Caption:=Edit1.Text;

            end;

function ItemExist(Text:string;ListView:TListView):Boolean;

            var

              i: Integer;

            begin

              Result:=False;

              if (Trim(Text)<>'') then

              begin

                for i := 0 to ListView.Items.Count-1 do

                if Trim(Text) = Trim(ListView.Items[i].Caption) then

                begin

                  Result:=True;

                  Exit;

                end;

              end;

              Result:=False;

            end;

procedure TForm1.Button6Click(Sender: TObject); begin if not ItemExist(Edit1.Text,ListView1) then ListView1.Items.Add.Caption:=Edit1.Text; end;

来自为知笔记(Wiz)

附件列表

转载于:https://www.cnblogs.com/xe2011/p/3876270.html

TListView列表拒绝添加重复信息相关推荐

List列表拒绝添加重复信息
[实例说明] 利用程序输入信息时,经常由于马虎输入了重复的信息.为避免输入重复信息,可以在添加重复信息时进行警告. [编程思路] 通 ...
C# 动态添加SEO 信息，不和静态页面重复和叠加
动态添加SEO 信息,不和静态页面重复和叠加,就一个方法,用到了做个记录,以后直接用就OK了,需要的同学也可以直接拿去用. 1 /// <summary> 2 /// 动态设置 SEO 信 ...
第15课：ul，添加新闻信息列表ol，添加图书销售排行榜
使用ul,添加新闻信息列表些列表就可以使用ul-li标签来完成.ul-li是没有前后顺序的信息列表. 语法: <ul><li>信息</li><li>信 ...
如何在保留订单的同时从列表中删除重复项？
是否有内置的程序在保留顺序的同时从Python列表中删除重复项? 我知道我可以使用集合来删除重复项,但这会破坏原始顺序. 我也知道我可以这样滚动自己: def uniq(input):output = ...
Bootstrap4+MySQL前后端综合实训-Day08-PM【ajax获取表单标签内容、根据“栏目信息”添加“新闻信息”、新闻管理系统-项目展示】
[Bootstrap4前端框架+MySQL数据库]前后端综合实训[10天课程博客汇总表详细笔记][附:实训所有代码] 目录 ajax获取表单标签内容 ajax根据数据库加载select下来列 ...
在 Excel 中如何使用宏示例删除列表中的重复项
概要:在 Microsoft Excel 中,可以创建宏来删除列表中的重复项.也可以创建宏来比较两个列表,并删除第二个列表中那些也出现在第一个(主)列表中的项目.如果您想将两个列表合并在一起,或者如果 ...
python列表删除算法_关于算法：如何从python中的列表中删除重复的条目
最近在一次采访中,我被要求编写一个python代码来从列表中删除所有重复的条目. 例如: Input List = {1,2,4,5,2,3,1} Expected Output List = {4, ...
在web.config中添加配置信息
1 在web.config中添加配置信息<configuration><connectionStrings><add name="conStr" co ...
利用MT Photos生成的重复文件列表，删除重复文件
提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档文章目录前言一.获取重复文件信息二.使用步骤 1. 运行"MTphotos重复文件(生成excel).py" ...
C＃LINQ在列表中查找重复项
本文翻译自:C# LINQ find duplicates in List 使用LINQ,如何从List<int>检索包含重复项不止一次及其值的列表? #1楼参考:https://sta ...

TListView列表拒绝添加重复信息

附件列表

TListView列表拒绝添加重复信息相关推荐

最新文章

热门文章