转载自:http://www.ylzx8.cn/windows/delphi/73200.html 本人在做一个测试,服务器是IOCP的,我假定最大链接数是50000个. 测试背景:如果每个链接之间的数据需要服务器中转的话,那么我需要一个数据容器储存用户的关键数据和连接. 我简单的做了一段简单的代码,关键代码段如下: RTest = record Key: Integer; Name: String[20]; end; PTest = ^RTest; TListType = (ltList, l…

procedure TForm1.btn1Click(Sender : TObject); var   m      : Integer;   s       : string;   strlst  : TStrings; begin   strlst                     := TStringList.Create;   strlst.Add('张三=80');   strlst.Add('张四=90');   strlst.Add('张五=100');   strlst.N…

转载自:http://blog.csdn.net/jqandjq/article/details/5429137 看了这里标题,大家可能以为我会谈TListBox控件,那就错了.我要谈的是Delphi提供给我们的具有列表性质的类:TStringList.TList和TObjectList.TStringList用来存放字符串,TList存放指针,而TObjectList则存放对象(Object) 在我们使用Delphi的过程中,有很多数据的存储是要靠 数组解决的.虽然Delphi现在已经支持了可…

dlgSave := TSaveDialog.Create(nil); dlgSave.filter := 'CSV文件|*.CSV'; dlgSave.DefaultExt := '*.CSV'; dlgSave.filename := '服务.CSV'; if dlgSave.Execute then begin if FileExists(dlgSave.filename) then try ) = IDYES then DeleteFile(PChar(dlgSave.filename)…

今天测试发现用TStringList进行字符分隔的时候 ,如果被分隔对象中含有空格就有产生发隔错误 方案一:可以用其它的函数来代替  方案二:Items.StrictDelimiter:= True;…

TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的. 常规的用法大家都知道,现在来讨论它的一些高级的用法. 1.CommaText 2.Delimiter &DelimitedText 3.Names &Values &ValueFromIndex 先看第一个:CommaText.怎么用呢? const constr :String = 'aaa,bbb,ccc,ddd'; var strs :TStrings; i :Integer; begin strs…

delphi 中TStringList 通过function AddObject(const S: string; AObject: TObject): Integer; 方法添加了一个对象,请问我在调用Clear 方法的时候该对象有没有被释放   object里存的只是指向对象的指针,clear只是把指针清除了,对象并没有被释放.TObjectList可以自动释放对象,剩下的TList,StringList等List类型的都需要手动释放.…

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

Memo.Text赋值高度注意事项,不得不知的技巧. list := TStringList.Create;  list.Text:= str:  list.Count; list.Clear;  list.Add(str);  list.Count; Memo.Text:=str;//也不触发SetTextStr事件,所以结果也不对 Memo1.Lines.Text:=str;//这样就对了,哎. 在str有换行符的情况下,两种赋值方法,str相同,但是list的结果不一定相同. text赋值…

结构体定义 PYpType=^TYpType; TYpType=record    yfcode:string;    ypcode:string;    YpUnitPrice:Currency;    YpRetailPrice:Currency;    YpCostPrice:Currency;    YpTotal:Currency;    CkTotal:Currency;    YpUseDT:string;    YpAddr:string;    Dwcode:string;  …