2011年6月21日

Memo 中 使用 FindDialog

摘要： procedureTForm1.Button1Click(Sender:TObject);beginfinddialog1.Execute;end;procedureTForm1.FindDialog1Find(Sender:TObject);varI,J,PosReturn,SkipChars:Integer;beginforI:=0toMemo1.Lines.CountdobeginPosReturn:=Pos(FindDialog1.FindText,Memo1.Lines[I]);ifPosReturn<>0then{found!}beginSkipChars:=0;for 阅读全文

posted @ 2011-06-21 16:18 jxgxy 阅读(274) 评论(0) 推荐(0) 编辑

Delphi的TRegistry注册表类方法详解

摘要： Delphi的TRegistry注册表类方法详解 收藏●GetDataInfo方法Function GetDataInfo(const ValueName:String;Var Value:TRegDataInfo):Boolean;TregDataType=(rdunknown,rdstring,rdexpandstring,rdexpandstring,rdinterger,rdbinary);TregDataInfo=record Regdata:TRegDataType;数据类型 dataSize:integer;数据大小endvaluename:和当前键关联的数据值名称value：. 阅读全文

posted @ 2011-06-21 11:52 jxgxy 阅读(359) 评论(0) 推荐(0) 编辑

synchronize

摘要： 1。synchronize方法的产生与vcl的局限性有关,因为vcl控件在同一时刻只能被单线程访问，如果多个线程同时访问vcl,vcl会出现问题。所以问了安全地访问vcl,Tthread类提供了一个方法叫synchronize，他可以让线程中的方法在主线程中执行，所以我们可以把访问vcl的代码都放在这个方法中，然后由主线程执行，从而确保vcl能被安全地访问调用.它的类型是TThreadMethod=procedure of object;procedure 参数:Sychronize(Method:TThreadMethod); 2。当创建一个线程时，vcl会在主线程中创建一个隐含的线程窗口， 阅读全文

posted @ 2011-06-21 11:48 jxgxy 阅读(399) 评论(0) 推荐(0) 编辑

临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别

摘要： TRtlCriticalSection 是一个结构体，在windows单元中定义；是InitializeCriticalSection，EnterCriticalSection，LeaveCriticalSection等这几个kernel32.dll中的临界区操作API的参数；TCriticalSection是在SyncObjs单元中实现的类，它对上面的那些临界区操作API函数进行了了封装，简化并方便了在Delphi的使用；如TCriticalSection.Enter;就是调用了EnterCriticalSection这个API函数。多线程程序中，如果各个线程要访问同一个资源，如同一个变量这 阅读全文

posted @ 2011-06-21 10:41 jxgxy 阅读(396) 评论(0) 推荐(0) 编辑

导航