delphi TStringList的用法
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 := TStringList.Create;
strs.CommaText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;
执行了这段代码后，可以看到ShowMessage显示出来的分别是：aaa bbb ccc ddd。
也就是说，strs.CommaText := constr这一句的作用，就是把一个字符串以','为分割符，分段添加到TStrings中。
那么如果不是以','来分割，又该怎么做呢？现在看第二个例子。使用Delimiter和DelimitedText。
const
constr :String = 'aaa\bbb\ccc\ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.Delimiter := '\';
strs.DelimitedText := constr;
for i := 0 to Strs.Coun ......
VC声明
HANDLE CreateMutex(
LPSECURITY_ATTRIBUTES lpMutexAttributes, // SD
BOOL bInitialOwner, // initial owner
LPCTSTR lpName // object name
);
delphi声明：
function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle; stdcall;
创建一个互斥体（MUTEX）
返回值
Long，如执行成功，就返回互斥体对象的句柄；零表示出错。会设置GetLastError。即使返回的是一个有效句柄，但倘若指定的名字已经存在，GetLastError也会设为ERROR_ALREADY_EXISTS
参数表 参数 类型及说明
lpMutexAttributes SECURITY_ATTRIBUTES，指定一个SECURITY_ATTRIBUTES结构，或传递零值（将参数声明为ByVal As Long，并传递零值），表示使用不允许继承的默认描述符
bInitialOwner Long，如创建进程希望立即拥有互斥体，则设为TRUE。一个互斥体同时只能由一个线程拥有
lpName String，指定互斥体对象的名字。用vbNullString创建一个未命名的互斥体对象。如已经存在拥有这个名字的一个事件，则打开现有的已命名互斥体。这个名字可能不与现有的事件、信号机、可等待计时器或文件� ......
TCollection 是TCollectionItenm对象的一个容器。
类关系TObject→TPersistent
每一个TCollection都拥有一组TCollectionItem对象。
在其Items属性数组中，TCcllection保存集合项目的一个下标。Count 属性包含了集合的项目数量。使用Add和Clear方法可以向集合中加入项目和从集合中删除项目。
从TCollection继承的对象能够包含从TCollectionItem继承的对象。例如，一个TDBGridColumns对象包含TColumn对象，这两个类被TDBGrid对象用于表示网格。下表列出了每一个TCollection对象的子类与相应的TCollectionltem对象的子类以及使用控制组件。其中，TQuryTableProducer和TWehDispetcher使用的控件继承自TWinContril对象。
TCollection子类 TCollectionItem子类 控件组件
TCheckConstraints TCheckConstraint 使用Tfield对象的控件
TCookieCollection TCookie HTTP响应对象
TCoolBands TCoolBand TCoolBar
TDBGridColumns TColumn TDBGrid
TDependencies TDependency TService
TDisplayDims TDisplayDim TDecisionGrid
TFieldDefs TfieldDef TDatsSet
THeaderSections THeaderSection THeaderControl
TIndexDefs TIndexDef TTable
THTMLTableColumns ......
一个友好的用户界面,必须具有下拉菜单，弹出菜单，工具条和快捷键。同样一个功能，程序员可能要提供几种操作方式，如文本拷贝，菜单命令&Copy,快捷键Ctrl+C,工具条上的拷贝按钮，都是程序员提供给用户的操作，可以大大方便了不同层次的用户。但是，多增加一种操作方式，就意味着增加响应事件的代码，还有，实现统一功能的多个操作必须一致，如剪切板上不为空的时候，菜单命令，快捷键，按钮，都是可以选择的Enabled状态，而剪切板上没有内容时，这些构件的Enabled状态都为假。当然，如果不集中控制这些细节的话，实现相同功能的构件要一致，必须多增加代码，控制较为复杂。
Action就是将实现某个功能的细节统一管理起来，如Caption, Checked, Enabled, HelpContext, Hint, ImageIndex, ShortCt, Visible, onExecute等属性和事件。程序员设置Action属性的同时,还要实现执行Action的代码onExecute。定义了Action后，将其连接到一个菜单项，或者按钮上时，Action定义的属性和OnExecute事件，马上取代了原来的设置，并且建立了连接。通过这个连接，当Action的属性发生变化时，如Enabled发生变化，那么与之连接的构件属性都会自动更新� ......
常忘记，在此做笔记。
这几个函数都包含在StrUtils中，所以需要uses StrUtils;
假设字符串是 Dstr := ’Delphi is the BEST’, 那么
LeftStr(Dstr, 5) := ’Delph’
MidStr(Dstr, 6, 7) := ’i is th’
RightStr(Dstr, 6) := ’e BEST’
~~~~~~~~~~~~~~~~~~~~~~~~~
function RightStr
(Const Str: String; Size: Word): String;
begin
if Size > Length(Str) then Size := Length(Str) ;
RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;
function MidStr
(Const Str: String; from, Size: Word): String;
begin
MidStr := Copy(Str, from, Size)&nbs ......
DirectoryExists('C:\WINDOWS'):Boolean;检测文件夹是否存在！
FileExists('c:\Dir.txt'):Boolean;检测文件是否存在！
EDIT组件
OnChange 当编辑框中的内容发生变化时触发该事件
OnKeyPress 当按下一个按键时，触发该事件
OnEnter 编辑框获得输入焦点时，触发该事件
MEMO组合
WordWrap 用于设定Momo组件是否具有自动折行功能
Memo1.Lines.SaveToFile('c:\Dir.txt') 保存文件
Memo1.Lines.LoadfromFile('c:\Dir.txt') 加载文件
到剪贴板代码
if Memo1.SelLength > 0 then
begin
Memo1.CopyToClipboard; //文本复制
Memo1.CutToClipboard; //文本剪切
Memo1.PastefromClipboard; //文本粘贴
end;
ListBox及ComboBox
ItemIndex 当前所选的列表号！ ......
最新文章 : delphi