List.Duplicates := dupIgnore;

TStringList常用操作 //TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1'); {第一次出

TStringList 常用操作 //TStringList 常用方法与属性: var   List: TStringList;   i: Integer; begin   List := TStringList.Create;   List.Add('Strings1');          {添加}   List.Add('Strings2');   List.Exchange(0,1);            {置换}   List.Insert(0,'Strings3');      {

http://forum.codecall.net/topic/75946-autocomplete-tedit/ Overview Autocomplete feature really helpful for us speeding up our typing job. For you who is not familiar with the term autocomplete, it's when you type partial part of a word and then you w

ECHOServer代码(不考虑粘包的处理): unit ufrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ActnList, diocp_tcp_server, ExtCtrls, ComCtrls, utils_safeLogger, utils_BufferPool, utils_fileWriter,

delphi TStringList 用法详解. TStringList 常用方法与属性 : var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1'

//TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1');           {添加} List.Add('Strings2'); List.Exchange(0,1);             {置换} List.Insert(0,'Strings3');      {插入} i := List.IndexOf('String

treeview自动从表中添加标题和列值做目录的方法2,该方法是借鉴万一老师的 http://www.cnblogs.com/del/archive/2008/05/15/1114450.html 首先界面上添加treeview组件,然后在treeview的onchange事件里这样写: 因为要用到定义个过程,需要在接口声明里引用 private { Private declarations } /// <summary> /// 刷新左侧treeView /// </summary&g

if  r>570 then                  SET_TT(1);//超出多少行就用excel导出 类似数组用法:var        ts: TStringlist;begin    ts:=TStringlist.Create;    ts.Add('select * from ...');    ts.Sorted := True;  //需要先指定排序      ts.Duplicates := dupIgnore;  //如有重复值则放弃存储 if(ts.count>

//TStringList 常用方法与属性: var   List: TStringList;   i: Integer; begin   List := TStringList.Create;   List.Add('Strings1');           {添加}   List.Add('Strings2');   List.Exchange(0,1);             {置换}   List.Insert(0,'Strings3');      {插入}   i := List