delphi学习记录

TThread 详解 我们常有工作线程和主线程之分，工作线程负责作一些后台操作，比如接收邮件；主线程负责界面上的一些显示。工作线程的好处在某些时候是不言而喻的，你的主界面可以响应任何操作，而背后的线程却在默默地工作。 VCL中，工作线程执行在Execute方法中，你必须从TThread继承一个类并覆盖Execute方法，在这个方法中，所有代码都是在另一个 线程中执行的。 最简单的一个线程类如下： TMyThread = class(TThread) protected procedure Execute; override; end; 在Execute中的代码，有一个技术要点，如果你的代码执行时间很短，像这样，Sleep(1000)，那没有关系；如果是这样Sleep (10000)，10秒，那么你就不能直接这样写了，须把这10秒拆分成10个1秒，然后判断Terminated属性

function IsHash(Hash: String): boolean; var i: integer; begin Result := false; if Hash = '' then exit; if Length(Hash) = 32 then // possible base32 encoded hash try Hash:=StrToHex(Base32Decode(UpperCase(Hash))); except exit; end; if Length(Hash) <> 40 then exit; Result := true; for i := 1 to 40 do if not (Hash[i] in ['a' .. 'f', 'A'..'F', '0'..'9']) then Result := false; end;