Cannot terminate an externally created thread ? The VCL has a new TExternalThread class which derives from TThread and can be attached to an existing Win32 thread object by filling in the Handle and ThreadID properties using the GetCurrentThread() an…
http://embarcadero.newsgroups.archived.at/public.delphi.rtl/201112/1112035763.html > Hi,>> What is the difference between these two definitions:>> TThreadMethod = procedure of object;> TThreadProcedure = reference to procedure;>>…
Embarcadero closes down their spanish R&D office putting some 80 people on the street and diminishing the total Delphi R&D team. Former Chief Scientist Allen Bauer commented: The Spain office had taken on most of the IDE, Delphi RTL, GetIT, Instal…
一个Unicode字符串,如何判断其中都是可见字符? //根据国标 GB2312 的中文汉字及符号 区位码的范围判断 Function CheckIsGB2312(Char : WideChar) : Boolean; var S : AnsiString; begin S := Char; Result := (PByte(integer(S)+)^>=$A1) )^<=$FE) and (PByte(S)^>=$B0) and (PByte(S)^<=$F7); end; //…
http://docwiki.embarcadero.com/RADStudio/Seattle/en/Automatic_Reference_Counting_in_Delphi_Mobile_Compilers#Weak_References Weak References Another important concept for ARC is the role of weak references, which you can create by tagging them with [w…
There is the famous quote: "Everything starts with a dream" and many years ago, Michael Van Canneyt, one of the main contributors to the Lazarus and Free Pascal compiler project had the dream of having the Pascal language as a first-class langua…
已经好几次了,没有这个函数还是感觉很不方便,所以自己写了一个: function LastPos(strFind :string; ch: Char): integer; var i, n: integer; begin Result := -; if strFind='' then begin Exit; end; for i:=1 to Length(strFind) do begin if strFind[i]=ch then Result := i; end; end; procedur…
