文档章节

如何把一个文本列表添加到 TListBox 并避免重复项 - 回复 "xnlxw" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 84
阅读 11
收藏 0
点赞 0
评论 0

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const
  FilePath = 'c:\temp\Test.txt';
var
  List: TStringList;
begin
  List := TStringList.Create;
  List.Sorted := True;
  List.Duplicates := dupIgnore;
  List.LoadFromFile(FilePath);
  ListBox1.Items.Assign(List);
  List.Free;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/02/22/1396050.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
编程之美之寻找发帖“水王” 的算法问题

Tango是微软亚洲研究 院的一个试验项目。研究院的员工和实习生们都很喜欢在Tango上面交流灌水。传说,Tango有一大“水王”,他不但喜欢发贴,还会回复其他ID发的每 个帖子。坊间风闻该“水王...

吟啸_徐行 ⋅ 2013/03/12 ⋅ 8

回复:块层介绍第一部分 - 块 I/O 层

回复:amarao 在块层介绍第一部分:块 I/O 层 中提的问题 先前的文章:块层介绍第一部分:块 I/O 层 嗨, 你在这里描述的问题与块层不直接相关。这可能是一个驱动错误、可能是一个 SCSI 层错...

⋅ 2017/12/03 ⋅ 0

使用python一步一步搭建微信公众平台(三)----添加用户关注后的欢迎信息与听音乐功能

在使用python一步一步搭建微信公众平台(二)中最后我们留下了一个问题,就是单引号的content在render到xml中时,返回给用户的信息会被转码,如‘<>&’会被转为<>&用户在收到有<>&等内容的时...

Kevin_Yang ⋅ 2014/01/31 ⋅ 29

Knockout.Js官网学习(options绑定)

前言 options绑定控制什么样的options在drop-down列表里(例如:)或者 multi-select 列表里 (例如:)显示。此绑定不能用于之外的元素。关联的数据应是数组(或者是observable数组),会遍...

aehyok ⋅ 2013/10/18 ⋅ 0

这样去写你的 HTML.

昨天在 twitter 上说,怎么忍心把页面写得这么难用?是的,这个世界还有一群人等着我们创建出来的东西,可以让他们的生活能过得更容易呢。比如那些需要读屏软件的用户。作为一个前端,我们又...

被风遗忘 ⋅ 2012/04/07 ⋅ 1

Excel 统计一列区域中不重复项数量

不重复唯一值,这是在 Excel 里处理数据经常能遇到的问题。例如,统计不重复数量、筛选不重复值、删除重复值、提取重复值等。今天我们来学习,写统计不重复数量的公式。 问题描述 如何统计一...

懒人Excel ⋅ 05/23 ⋅ 0

axure中继器解析

今天为大家介绍axure工具中一个非常强大的元件——中继器。中继器是在Axure RP7.0开始加入的,可以用来“存放”文本、图片、链接等数据,可以把它理解成为一个虚拟的数据库。中继器通常用来显...

狄睿鑫老师 ⋅ 2017/03/24 ⋅ 0

在GridView内访问特定控件

本文我将为你演示如何访问GridView中的特定控件。我们会看到怎样去访问TextBox控件,DropDownList控件以及ListBox控件。 添加控件到GridView: 你可以简单地使用 选项在GridView控件中增加不...

晨曦之光 ⋅ 2012/03/09 ⋅ 0

UI 控件比较

一、 Button Android 声明 Button android:id="@+id/button1"android:layout_height="80px "android:layout_width="40px "android:text="Button1"/> 事件处理 @Overridepublic void onCreat......

失足处男的倒霉孩子 ⋅ 2013/12/24 ⋅ 0

Editor.md v1.1.0 发布,支持图片上传等新功能

主要更新: 设计并更换了Logo; 新增添加图片、链接、锚点链接、代码块、预格式文本等操作弹出对话框层及示例; 新增支持图片(跨域)上传; 改用来存放Markdown源文档; 新增支持自定义工具栏...

叛道 ⋅ 2015/02/16 ⋅ 6

没有更多内容

加载失败,请刷新页面

加载更多

下一页

JavaScript零基础入门——(十)JavaScript的DOM基础

JavaScript零基础入门——(十)JavaScript的DOM基础 欢迎大家回到我们的JavaScript零基础入门,上一节课,我们了解了JavaScript中的函数,这一节课,我们来了解一下JavaScript的DOM。 第一节...

JandenMa ⋅ 32分钟前 ⋅ 0

Spring mvc DispatchServlet 实现原理

在Spring中, ContextLoaderListener只是辅助类,在web 容器启动的时候查找并创建WebApplicationContext对象,通过该对象进行加载spring的配置文件。而真正的逻辑实现其实是在DispatcherSer...

轨迹_ ⋅ 44分钟前 ⋅ 0

Weex起步

本教程假设你已经在你的本地环境安装了node 其实weex起步教程在 https://github.com/lilugirl/incubator-weex 项目说明文件中都已经有了,但为了有些同学看到英文秒变文盲,所以这里我重新写...

lilugirl ⋅ 52分钟前 ⋅ 0

Jenkins实践1 之安装

1 下载 http://mirrors.jenkins.io/war/latest/jenkins.war 2 启动 java -jar jenkins.war 前提:安装jdk并配置环境变量 启动结果节选: ************************************************......

晨猫 ⋅ 58分钟前 ⋅ 0

组合数学 1-2000 中,能被6或10整除的数的个数

1--2000 中,能被6或10整除的数的个数 利用集合的性质 能被6整除的个数 2000/6 = 333 能被10整除的个数 2000/10 = 200 能被6和10整除的个数 2000/30 = 66 能被6或10整除的个数 333+200-66 =...

阿豪boy ⋅ 今天 ⋅ 0

一篇文章学懂Shell脚本

Shell脚本,就是利用Shell的命令解释的功能,对一个纯文本的文件进行解析,然后执行这些功能,也可以说Shell脚本就是一系列命令的集合。 Shell可以直接使用在win/Unix/Linux上面,并且可以调用...

Jake_xun ⋅ 今天 ⋅ 0

大数据工程师需要精通算法吗,要达到一个什么程度呢?

机器学习是人工智能的一个重要分支,而机器学习下最重要的就是算法,本文讲述归纳了入门级的几个机器学习算法,加大数据学习群:716581014一起加入AI技术大本营。 1、监督学习算法 这个算法由...

董黎明 ⋅ 今天 ⋅ 0

Kylin 对维度表的的要求

1.要具有数据一致性,主键值必须是唯一的;Kylin 会进行检查,如果有两行的主键值相同则会报错。 2.维度表越小越好,因为 Kylin 会将维度表加载到内存中供查询;过大的表不适合作为维度表,默...

无精疯 ⋅ 今天 ⋅ 0

58到家数据库30条军规解读

军规适用场景:并发量大、数据量大的互联网业务 军规:介绍内容 解读:讲解原因,解读比军规更重要 一、基础规范 (1)必须使用InnoDB存储引擎 解读:支持事务、行级锁、并发性能更好、CPU及...

kim_o ⋅ 今天 ⋅ 0

代码注释中顺序更改 文件读写换行

`package ssh; import com.xxx.common.log.LogFactory; import com.xxx.common.log.LoggerUtil; import org.apache.commons.lang3.StringUtils; import java.io.*; public class DirErgodic ......

林伟琨 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部