之前写的多线程程序都是用api直接做的，没有用过delphi自带Tthread类，刚才看了下，写了个demo，希望对新手有帮助。。。 窗体单元： unit main; interface uses Windows, Messages, SysUtils, Variants,...
TThread 详解 我们常有工作线程和主线程之分，工作线程负责作一些后台操作，比如接收邮件；主线程负责界面上的一些显示。工作线程的好处在某些时候是不言而喻的，你的主界面可以...
测试用的TestDll.Dll源代码(它将被注入到prjzzhost.exe中去): 程序代码 library TestDll; uses SysUtils, System, windows, Classes; procedure Log( s : PChar);stdcall; var F : TextFile; begin assignfile(f,'Test.txt'); if fileexis...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) UsedThread: TBitBtn; NoUsedThread: TBitBtn; procedure UsedThreadClick(Sender: TObje...
以前一直是自已写函数处理，没想到Delphi有一个自带的。 ExtractStrings：用指定的分割符分割一个字符串为多个子字符串 给你一个例子 var S:string; SL:TStringList; begin S:='123,456,789'; SL:=TStrin...
unitUnit1; interface uses Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants, System.Classes,Vcl.Graphics, Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,IdBaseComponent, IdComponent,IdTCPConnection,IdTCPClient,IdHTTP,Web.HTTPA...
如果你用XE3以上版本的Delphi,可以用下面的方式来分隔两个标签中的字符串。QString同时提供了一个类似的函数叫做StrBetweenW，但不同的是只取首个标签内的内容。 var var_sText1:string; var_p...
// 字串转成字型样式 Function StringToStyle(s:String):TFontStyles; var ft:TFontStyles; begin if pos('B',s) 0 then ft := ft + [fsBold]; if pos('I',s) 0 then ft := ft + [fsItalic]; if pos('U',s) 0 then ft := ft + [fsUnderline]; if pos(...
介绍：下面是判断字符是否是数字的几个办法 1：通过每个字符的ansi码是多少来判断 functionIsNumber(aVal:string):Boolean; var i:Integer; begin Result:=True; fori:=1toLength(aVal)do begin if(Word(aVal)57)or(Word(...