TurboPower LockBox 3.1.0 is now released. It supports: Delphi 2007 and Delphi 2010 Unicodestrings for Delphi 2010 AES, DES, 3DES, Blowfish and Twofish ciphers A long list of block chaining modes MD5 and SHA1 hashes RSA encryption, decryption, signature and verification Variable length RSA keys – Almost no contraints on the range. D-Unit test code … Read more
TurboPower LockBox 3.1.0 is now released. It supports: Delphi 2007 and Delphi 2010 Unicodestrings for Delphi 2010 AES, DES, 3DES, Blowfish and Twofish ciphers A long list of block chaining modes MD5 and SHA1 hashes RSA encryption, decryption, signature and verification Variable length RSA keys – Almost no contraints on the range. D-Unit test code … Read more
Writing a thread safe code in Delphi involves the basic care you would have in any other language, which means to deal with race conditions. A race condition happens when different threads access the same data. A good way to deal with that is to declare an instance of TCriticalSection and wrap the dangerous code … Read more
TDataProviderThread is a descendant of TThreadBase, but TThreadBaseList<TDataProviderThread> is not a descendant of TThreadBaseList<TThreadBase>. That’s not inheritance, it’s called covariance, and though it seems intuitively like the same thing, it isn’t and it has to be supported separately. At the moment, Delphi doesn’t support it, though hopefully it will in a future release. Here’s the … Read more
Try using {$R aVersionInfo.res} and calling brcc32 aVersionInfo.rc manually from your batch file (after you’re done with creating the .rc file). That way your .res file should be excluded from the normal IDE build.
Here’s the list of compiler versions: {$IFDEF VER40} – Turbo pascal 4 {$IFDEF VER50} – Turbo pascal 5 {$IFDEF VER55} – Turbo pascal 5.5 {$IFDEF VER60} – Turbo pascal 6 {$IFDEF VER70} – Borland pascal 7 (And turbo pascal 1.5 for windows) {$IFDEF VER80} – Delphi 1 {$IFDEF VER90} – Delphi 2 {$IFDEF VER100} – … Read more
Charles if do you read the code of TThread class , do you find the answer. TThread = class private type .. .. .. public constructor Create(CreateSuspended: Boolean); destructor Destroy; override; procedure AfterConstruction; override; // This function is not intended to be used for thread synchronization. procedure Resume; deprecated; // Use Start after creating a … Read more
You can use the TFileOpenDialog (on Vista+): with TFileOpenDialog.Create(nil) do try Options := [fdoPickFolders]; if Execute then ShowMessage(FileName); finally Free; end; Personally, I always use the TFileOpenDialog on Vista+ and fallback using the SelectDirectory (the good one!) on XP, like this: if Win32MajorVersion >= 6 then with TFileOpenDialog.Create(nil) do try Title := ‘Select Directory’; Options … Read more
Ok, here is a boilerplate solution which can be adapted for your specific serialization or other use as well. A record, TSerializer, does all the serialization job and the result is stored in a string list. To use it, call method Serialize(‘state’, TValue.From(state),sList); from a TSerializer instance. You can add most types that fit into … Read more
There is another quite simple solution using TStringList. Change the LineBreak: procedure TForm208.Button1Click(Sender: TObject); var lst: TStringList; begin lst := TStringList.Create; try lst.LineBreak := ‘<->’; lst.Text := ‘Whale<->Mammal<->Ocean’; Memo1.Lines := lst; finally lst.Free; end; end;