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
One common algorithm to perform a shuffle is the Fisher-Yates shuffle. This generates uniformly distributed permutations. To implement on a Delphi TStrings object you can use this: procedure Shuffle(Strings: TStrings); var i: Integer; begin for i := Strings.Count-1 downto 1 do Strings.Exchange(i, Random(i+1)); end; Now, whilst in theory this will generate uniformly distributed permutations, the … Read more
See this CodeCentral article: Using more than 3 GB memory in a 32 bit Delphi program. In modern Delphi versions just add compiler directive to the dpr: {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
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.
This is a feature of Vista themes. The only known way to work around this feature is to go backwards during an update. Every time you set the progress bar counter to N immediately afterwards set it to N-1. There’s nothing wrong with the Delphi code, it’s a feature of the common control.
There is no faster way: any function accessing anything on a remote share will timeout when that share is not available. If the cause of your timeouts is automatic disconnecting of shares, then these link may help you: How Autodisconnect Works in Windows NT and Windows 2000 Mapped Drive Connection to Network Share May Be … Read more
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
Here’s a short-but-complete console application that shows how to create your own event in Delphi. Includes everything from type declaration to calling the event. Read the comments in the code to understand what’s going on. program Project23; {$APPTYPE CONSOLE} uses SysUtils; type // Declare an event type. It looks allot like a normal method declaration … Read more
The internal Delphi version of FastMM doesn’t support stack traces. If you want to log the memory leak stack traces, you have to: download the full version of the FastMM library include it as the first unit in your project: program YourProject; uses FastMM4, // <– SysUtils, Forms, … enable the FullDebugMode option in FastMM4Options.inc … Read more
in indy 9, there is a unit IdStack, with the class TIdStack fStack := TIdStack.CreateStack; try edit.caption := fStack.LocalAddress; //the first address i believe ComboBox1.Items.Assign(fStack.LocalAddresses); //all the address’ finally freeandnil(fStack); end; works great 🙂 from Remy Lebeau’s Comment The same exists in Indy 10, but the code is a little different: TIdStack.IncUsage; try GStack.AddLocalAddressesToList(ComboBox1.Items); Edit.Caption … Read more