TOpenDialog executes TFileOpenDialog when the following conditions are met: the program is running under Vista (and up) UseLatestCommonDialogs is true (which is the default) no OnIncludeItem, OnClose or OnShow events are set So while still using TOpenDialog on your system you may likely end up automagically executing TFileOpenDialog in most cases, which explains why they … Read more
The Sort overload you should be using is this one: procedure Sort(const AComparer: IComparer<TMyRecord>); Now, you can create an IComparer<TMyRecord> by calling TComparer<TMyRecord>.Construct. Like this: var Comparison: TComparison<TMyRecord>; …. Comparison := function(const Left, Right: TMyRecord): Integer begin Result := Left.intVal-Right.intVal; end; List.Sort(TComparer<TMyRecord>.Construct(Comparison)); I’ve written the Comparison function as an anonymous method, but you could also … Read more
Is it possible to resolve the problem by tuning compiler options? No, you cannot fix the error by tuning, it’s a (very specific) bug in the compiler. [Can someone tell me] Whether this problem repeats at someone else? I can reproduce the code, but only in XE2 update 4. I was not able to check … Read more
To add a single quote to a string, you include two ‘ marks e.g. str := ”’test string”’; Writeln(str) In the string above, you have the normal single quotation to start a string and then two for the single quote. Same goes for the end of the string. You can also use # followed by … Read more
TStrings is an abstract type that doesn’t have all methods implemented. TStringList is a descendant of TStrings and implements all functions. In your code, you could declare your variable also as TStringList. However e.g. on function definitions it makes sense to accept a TStrings parameter instead of a TStringList: procedure doSomething(lst: TStrings); This enables the … Read more
Calling a RESTful web service using Indy is pretty straight forward. Add IdHTTP to your uses clause. Remember that IdHTTP needs the “HTTP://” prefix on your URLs. function GetURLAsString(const aURL: string): string; var lHTTP: TIdHTTP; begin lHTTP := TIdHTTP.Create; try Result := lHTTP.Get(aURL); finally lHTTP.Free; end; end;
I am a jedi JVCL developer, and I have used JvDocking in my own commercial in-house projects, and found it to be solid and reliable. Also, it’s free. It’s easy to extend. It creates a look and feel about the same as visual studio 2008 era docking.
Ok. This is an old thread, but could do with some updating. I stopped using Delphi, maybe a decade ago, largely because I had no choice. Having spent 5+ years working as a Delphi coder, I was now a student again and the prices for Delphi were simply outrageous. The problem with Delphi was never … Read more
Double buffering and fancy drawing tactics are only half the story. The other half, some would argue the more critical half, is to limit how much of your control is invalidated. In your comments, you mention that you use RedrawWindow(handle, @R, 0, rdw_Invalidate or rdw_Frame). What are you setting the R rectangle to? If you … Read more
You would need to use $IF instead: {$IF Defined(Condition1) or Defined(Condition2)} DoSomething; {$IFEND}