Applications Built With Delphi ( Add yours with 3 clicks )

Here is a link to a web page I found that lists applications built with Delphi.

https://delphi.fandom.com/wiki/Good_Quality_Applications_Built_With_Delphi

The best part about this site... you can add your own software if it's not listed. It comes with a built in editor:

When you click on "Edit" and edit window pops up. Scroll down until you find the appropriate spot to add your software. Click on the left cell and it becomes highlighted.

Click on the little arrow to the left and you will be prompted to insert a row above or below the highlighted cell.

Then simply add your software product and give it a link to your product page. Then add your software description in the right cell.

If you know of a website or web page that maintains a list of applications created with Delphi please add it using the comments. I will keep this post updated with all the links provided.

Cheers,

Gunny Mike

https://zilchworks.com

The question "What do you want to be when you grow up?" is not just for kids.

1. Stop your busy life for just three-and-a-half minutes. 
2. Watch this video.
3. Answer this question, "What do you want to be when you grow up?" in the comments.

How I use my "Like Buckets"

When I grow up, I want to tell stories. Not just any kind of stories. Stories that inspire people. People just like you. To help me get there, I joined Toastmasters two years ago. Right now, I have three priorities all competing for my spare time. One of those priorities is getting an updated copy of my software out there. The sooner this is done, the less competition there is for my spare time. 😃

What do you want to be when you grow up?

( Answer in the comments below )

Semper Fi

Gunny Mike

https://zilchworks.com

How to create a "Cheat Sheet" of your favorite @Lynda courses

I finally purchased Camtasia a couple weeks ago so I could create videos in support the upgrade I'm doing of my Zilch Standard software. This is just an interim upgrade that I'm doing using an old copy of Delphi 5 with source code from 2006, even though I have Delphi 10.3 😎

I love lynda.com. There are so many courses available on many different subjects. The best part is my free access through the Boston Public Library (bpl.org). I was paying $40 a month until a co-worker told me I could get access for free using my BPL e-card. Check and see if your local library offers free access to @Lynda.

It's a shame that there are no Delphi or Object Pascal courses on @Lynda. There's a story there but you'll have to ask me in person about this one.

Anyway, had forgotten what the instructor said was the best screen resolution to use. So, I logged back into my account and pulled up my course history. Did a search for what I was looking for and then discovered a hidden gem inside all the courses.

"I discovered a hidden gem inside all the courses"

Notes. I knew you could take notes but I didn't know you could turn those notes into a permanent "cheat sheet". So, I decided to just make a video on how to take notes. It's good practice for me and hopefully you find it beneficial.

Please like this video and subscribe to my YouTube channel.

These are the two courses I took on Lynda:

Camtasia 2019 Essential Training: The Basics (2hr 5min)

https://www.lynda.com/Camtasia-tutorials/Camtasia-2019-Essential-Training-Basics/2807861-2.html

Camtasia 2019 Essential Training: Advanced Techniques (2hr 21min)

https://www.lynda.com/Camtasia-tutorials/Camtasia-2019-Essential-Training-Advanced-Techniques/2809590-2.html

For voice recording I used my Microsoft LifeChat LX-6000 headphones with built in microphone which I purchased in March 2014.

https://www.amazon.com/Microsoft-LifeChat-LX-6000-for-Business/dp/B00465UNYI

Enjoy,

Semper Fi

Gunny Mike

https://zilchworks.com

Delphi Class References - Complete List

I mistakenly hit "Publish" instead of "Save" last night which wound up making this post go live before it was finished. Oh well... it is what it is.

 If you've read some of my earlier posts you know I have been struggling with thinking like a Delphi OOP programmer. I am self-taught. I started with Turbo Pascal 3. And I've been stuck in the top-down, structured mindset for a very long time. Until now.

A few days ago I rediscovered an older (still relevant) book that has been siting on my bookshelf for over twenty years. It's called Delevoping Custom Delphi 3 Components. It was written by Ray Konopka ( https://delphibydesign.com/).

"This book is the greatest Delphi book ever."

I posted this image to the Delphi Developer group on Facebook.Warren Postma, who writes the Delphi Code Monkey blog (http://delphicodemonkey.blogspot.com/), made this comment about the book. "This book is the greatest Delphi book ever."

I have only read through the first 43 pages. And I agree 100% with Postma. This is probably the greatest Delphi book ever written.

I never heard of Class References before. Maybe I did and just don't remember. But it doesn't matter.  Konopka introduces Delphi's Class References on page 42. He says, "Class references are typically used to treat a number of different classes as a single class." Then he goes on to explain how this works with a short, concise, extremely meaningful example. The Class Reference used is TControlClass.

Click! I get the concept. It's extremely powerful. Do I see an immediate need for implementing the use of a Class Reference? No. That doesn't mean it's not worth knowing about. Just having the knowledge that this is available is valuable.

I used to coach little league baseball when my boys were younger. There were usually twelve or thirteen kids on a team. You can only field nine kids at a time. So, a few of the kids sat on the bench and would get subbed into other positions as the game went on. One would become a right-fielder, one would become the second-baseman. And sometimes I'd do a double swap and replace the pitcher with a kid off the bench and replace the left-fielder with the kid who was pitching.

That's a nice little story Riley, but what does this have to do with Delphi's Class References?

Each position on a baseball team is filled by a baseball-player. Each individual position on the baseball team is slightly different but they all have one thing in common. They are all baseball-players for example;

• TRightFielder : TBaseballPlayer;
• TSecondBaseman : TBaseballPlayer;
• TPitcher : TBaseballPlayer;
• TLeftFielder : TBaseballPlayer;

There comes a time when you need to substitute a player or two, or three. Because we all know how mad the parents get when their kid doesn't play. So you have a player-substitute. But this player needs to play any position or quite possibly switch positions.

TBasballPlayerClass = class of TBaseballPlayer;

This lets you do suff like this:

Sub  : TBaseballPlayerClass;
Sub1 : TBaseballPlayer;
Sub2 : TBaseballPlayer;
Sub3 : TBaseballPlayer;

Sub1 :=  Sub.Create ( Self  ); //Sitting on the bench waiting to play
Sub2 :=  Sub.Create ( Self  ); //Sitting on the bench waiting to play
Sub3 :=  Sub.Create ( Self  ); //Sitting on the bench waiting to play

Sub1 :=  TBaseballPlayerClass ( TRightFielder  ); //Play Right Field
Sub2 :=  TBaseballPlayerClass ( TSecondBaseman ); //Play Second Base
Sub3 :=  TBaseballPlayerClass ( TPitcher ); //Go Pitch

or if you change your mind at the last minute

Sub1 :=  Sub3; //You pitch instead
Sub3 :=  TBaseballPlayerClass ( TRightFielder  ); //You go to Right Field

Once I understood the power and concept of Delphi's Class References I wondered just how many Class References are out there. So I did a search and created this list.

Enjoy
Semper Fi
Gunny Mike
https://zilchworks.com

Feedback is always welcome

File Location	Class Reference
data\Data.DB.pas	TCheckConstraintClass = class of TCheckConstraint;
data\Data.DB.pas	TCheckConstraintsClass = class of TCheckConstraints;
data\Data.DB.pas	TDataSetClass = class of TDataSet;
data\Data.DB.pas	TFieldClass = class of TField;
data\Data.DB.pas	TFieldDefClass = class of TFieldDef;
data\Data.DB.pas	TFieldDefListClass = class of TFieldDefList;
data\Data.DB.pas	TFieldDefsClass = class of TFieldDefs;
data\Data.DB.pas	TFieldListClass = class of TFieldList;
data\Data.DB.pas	TFieldsClass = class of TFields;
data\Data.DB.pas	TIndexDefClass = class of TIndexDef;
data\Data.DB.pas	TIndexDefsClass = class of TIndexDefs;
data\Data.DB.pas	TLookupListClass = class of TLookupList;
data\Data.DB.pas	TParamClass = class of TParam;
data\Data.DB.pas	TParamObjectClass = class of TParamObject;
data\Data.DB.pas	TParamsClass = class of TParams;
.
data\datasnap\Datasnap.DSHTTPClient.pas	TDSHTTPClass = class of TDSHTTP;
.
data\datasnap\Datasnap.DSReflect.pas	TDSAdapterClassType = class of TDSAdapterClass;
.
data\datasnap\Datasnap.DSServer.pas	TServerClassAdapterClass = class of TServerClassAdapter;
.
data\dbx\Data.DBXClient.pas	TDBXClientDriverLoaderClass = class of TObject;
.
data\dbx\Data.DBXCommon.pas	TDBXDriverClass = class of TDBXDriver;
data\dbx\Data.DBXCommon.pas	TDBXDriverLoaderClass = class of TDBXDriverLoader;
data\dbx\Data.DBXCommon.pas	TDBXPropertiesClass = class of TDBXProperties;
.
data\dbx\Data.DBXDynalink.pas	TDBXDynalinkDriverCommonLoaderClass = class of TDBXDynalinkDriverCommonLoader;
data\dbx\Data.DBXDynalink.pas	TDBXDynalinkDriverLoaderClass = class of TClassRegistryObject; // class of TObject;
.
data\dbx\Data.DBXPlatform.pas	TObjectClass = class of TFactoryObject;
data\dbx\Data.DBXPlatform.pas	TTransportFilterClass = class of TBaseTransportFilter;
.
data\dsnap\Datasnap.DataBkr.pas	TRemoteDataModuleClass = class of TRemoteDataModule;
.
data\ems\EMS.DataSetResource.pas	TEMSDataSetAdaptorClass = class of TEMSDataSetAdaptor;
.
data\firedac\FireDAC.Comp.BatchMove.pas	TFDBatchMoveDriverClass = class of TFDBatchMoveDriver;
.
data\firedac\FireDAC.Comp.Client.pas	TFDCustomConnectionClass = class of TFDCustomConnection;
data\firedac\FireDAC.Comp.Client.pas	TFDCustomManagerClass = class of TFDCustomManager;
.
data\firedac\FireDAC.Comp.Script.pas	TFDScriptCommandClass = class of TFDScriptCommand;
.
data\firedac\FireDAC.DatS.pas	TFDDatSMechBaseClass = class of TFDDatSMechBase;
data\firedac\FireDAC.DatS.pas	TFDDatSObjectClass = class of TFDDatSObject;
.
data\firedac\FireDAC.Phys.MongoDBWrapper.pas	TOperationClass = class of TOperation;
.
data\firedac\FireDAC.Phys.ODBCWrapper.pas	EODBCNativeExceptionClass = class of EODBCNativeException;
data\firedac\FireDAC.Phys.ODBCWrapper.pas	TODBCLibClass = class of TODBCLib;
.
data\firedac\FireDAC.Phys.OracleWrapper.pas	TOCILobLocatorClass = class of TOCILobLocator;
data\firedac\FireDAC.Phys.OracleWrapper.pas	TOCICollectionClass = class of TOCICollection;
.
data\firedac\FireDAC.Phys.pas	TFDPhysConnectionClass = class of TFDPhysConnection;
data\firedac\FireDAC.Phys.pas	TFDPhysDriverClass = class of TFDPhysDriver;
.
data\firedac\FireDAC.Phys.PGWrapper.pas	TPgVariableClass = class of TPgVariable;
.
data\firedac\FireDAC.Phys.SQLiteWrapper.pas	TSQLiteExtensionClass = class of TSQLiteExtension;
.
data\firedac\FireDAC.Phys.SQLiteWrapper.pas	TSQLiteVModuleClass = class of TSQLiteVModule;
.
data\firedac\FireDAC.Stan.Def.pas	TFDDefinitionClass = class of TFDDefinition;
.
data\firedac\FireDAC.Stan.Error.pas	EFDDBEngineExceptionClass = class of EFDDBEngineException;
data\firedac\FireDAC.Stan.Error.pas	EFDExceptionClass = class of EFDException;
data\firedac\FireDAC.Stan.Error.pas	TFDDBErrorClass = class of TFDDBError;
.
data\firedac\FireDAC.Stan.Factory.pas	TFDObjectClass = class of TFDObject;
.
data\firedac\FireDAC.Stan.Intf.pas	TFDConnectionDefParamsClass = class of TFDConnectionDefParams;
data\firedac\FireDAC.Stan.Intf.pas	TFDStorableObjectClass = class of TFDStorableObject;
.
data\firedac\FireDAC.Stan.Option.pas	TFDFetchOptionsClass = class of TFDFetchOptions;
data\firedac\FireDAC.Stan.Option.pas	TFDResourceOptionsClass = class of TFDResourceOptions;
data\firedac\FireDAC.Stan.Option.pas	TFDUpdateOptionsClass = class of TFDUpdateOptions;
.
data\firedac\FireDAC.Stan.Util.pas	TFDThreadMsgClass = class of TFDThreadMsgBase;
.
data\rest\REST.Authenticator.OAuth.pas	TOAuth1SignatureMethodClass = class of TOAuth1SignatureMethod;
.
data\rest\REST.Backend.EMSApi.pas	TEMSClientHTTPErrorClass = class of EEMSClientHTTPError;
data\rest\REST.Backend.KinveyApi.pas	TKinveyAPIErrorClass = class of EKinveyAPIError;
data\rest\REST.Backend.ParseAPI.pas	TParseAPIErrorClass = class of EParseAPIError;
.
data\vclctrls\Vcl.DBGrids.pas	TColumnClass = class of TColumn;
.
databinding\components\Data.Bind.Components.pas	TBindEditorFactoryClass = class of TBindEditorFactory;
databinding\components\Data.Bind.Components.pas	TContainedBindCompClass = class of TContainedBindComponent;
.
databinding\components\Data.Bind.DBLinks.pas	TBaseDBGridLinkColumnClass = class of TBaseDBGridLinkColumn;
databinding\components\Data.Bind.DBLinks.pas	TBindDBColumnFactoryClass = class of TBindDBColumnFactory;
.
databinding\components\Data.Bind.Grid.pas	TBaseLinkGridToDataSourceColumnClass = class of TBaseLinkGridToDataSourceColumn;
databinding\components\Data.Bind.Grid.pas	TLinkGridToDataSourceColumnFactoryClass = class of TLinkGridToDataSourceColumnFactory;
.
databinding\components\Data.Bind.ObjectScope.pas	TBindFieldDefClass = class of TBindFieldDef;
databinding\components\Data.Bind.ObjectScope.pas	TBindFieldDefsClass = class of TBindFieldDefs;
databinding\components\Data.Bind.ObjectScope.pas	TGeneratorBindFieldDefsClass = class of TGeneratorFieldDefs;
databinding\components\Data.Bind.ObjectScope.pas	TValueGeneratorClass = class of TValueGenerator;
.
databinding\engine\System.Bindings.CustomScope.pas	TScopeClass = class of TCustomScope;
.
databinding\graph\GraphView.pas	TGraphEdgeClass = class of TGraphEdge;
databinding\graph\GraphView.pas	TGraphNodeClass = class of TGraphNode;
.
DUnit\Contrib\DUnitWizard\Source\Common\XPWinBase.pas	TTEXPWin32 = class of EXPWin32;
"DUnit\Contrib\DUnitWizard\Source\DelphiExperts\DUnitProject\ dunit\Examples\TestedUnitParserTest_1.pas"	TTClass = class of TXPStubClass1;
.
DUnit\examples\testexception\Unit1Test.pas	ExceptionClass = class of Exception;
.
DUnit\src\TestFramework.pas	ExceptionClass = class of Exception;
DUnit\src\TestFramework.pas	TTestCaseClass = class of TTestCase;
.
DunitX\DUnitX.ComparableFormat.pas	TDUnitXComparableFormatClass = class of TDUnitXComparableFormat;
.
DunitX\DUnitX.InternalDataProvider.pas	TTestDataProviderClass = class of TTestDataProvider;
.
DunitX\DUnitX.Utils.pas	TCustomAttributeClass = class of TCustomAttribute;
.
Experts\DSServerMethodsExpertsCreators.pas	TDSServerMethodsCreatorModuleClass = class of TDSServerMethodsCreatorModule;
.
fmx\FMX.ActnList.pas	TActionLinkClass = class of TActionLink;
.
fmx\FMX.Controls.Model.pas	TDataModelClass = class of TDataModel;
.
fmx\FMX.Controls.pas	TCustomTextSettingsClass = class of TCustomTextSettings;
fmx\FMX.Controls.pas	THintClass = class of THint;
.
fmx\FMX.Controls.Presentation.pas	TPresentationProxyClass = class of TPresentationProxy;
.
fmx\FMX.Filter.pas	TFilterClass = class of TFilter;
.
fmx\FMX.Gestures.pas	TCustomGestureRecognizerClass = class of TCustomGestureRecognizer;
fmx\FMX.Gestures.pas	TGestureEngineClass = class of TCustomGestureEngine;
fmx\FMX.Gestures.pas	TGestureEngineType = class of TGestureEngine;
fmx\FMX.Gestures.pas	TGestureStreamDataClass = class of TGestureStreamData;
.
fmx\FMX.Graphics.pas	TCanvasClass = class of TCanvas;
fmx\FMX.Graphics.pas	TCustomBitmapCodecClass = class of TCustomBitmapCodec;
fmx\FMX.Graphics.pas	TFontClass = class of TFont;
fmx\FMX.Graphics.pas	TFontColorForStateClass = class of TFontColorForState;
fmx\FMX.Graphics.pas	TPrinterCanvasClass = class of TPrinterCanvas;
fmx\FMX.Graphics.pas	TTextSettingsClass = class of TTextSettings;
.
fmx\FMX.Grid.iOS.pas	TColumnLinkClass = class of TColumnLink;
fmx\FMX.Grid.iOS.pas	TiOSCellControlClass = class of TiOSCellControl;
.
fmx\FMX.Grid.pas	TColumnClass = class of TColumn;
.
fmx\FMX.Helpers.Mac.pas	TOSXMessageClass = class of TOSXMessage;
.
fmx\FMX.ImgList.pas	TDestinationItemClass = class of TCustomDestinationItem;
fmx\FMX.ImgList.pas	TImageListClass = class of TCustomImageList;
fmx\FMX.ImgList.pas	TLayerClass = class of TLayer;
fmx\FMX.ImgList.pas	TSourceItemClass = class of TCustomSourceItem;
.
fmx\FMX.ListBox.pas	TListBoxSelectorClass = class of TListBoxSelector;
.
fmx\FMX.ListView.Appearances.pas	TGroupClass = class of TPresetItemObjects;
fmx\FMX.ListView.Appearances.pas	TItemAppearanceObjectsClass = class of TItemAppearanceObjects;
fmx\FMX.ListView.Appearances.pas	TListItemObjectClass = class of TListItemDrawable;
.
fmx\FMX.ListView.Types.pas	TListItemViewType = class of TListItemView;
.
fmx\FMX.Media.pas	TCaptureDeviceClass = class of TCaptureDevice;
fmx\FMX.Media.pas	TCustomMediaCodecClass = class of TCustomMediaCodec;
.
fmx\FMX.MultiResBitmap.pas	TFixedBitmapItemClass = class of TFixedBitmapItem;
fmx\FMX.MultiResBitmap.pas	TCustomBitmapItemClass = class of TCustomBitmapItem;
.
fmx\FMX.MultiView.pas	TMultiViewPresentationClass = class of TMultiViewPresentation;
.
fmx\FMX.Presentation.Android.pas	TAndroidNativeViewClass = class of TAndroidNativeView;
.
fmx\FMX.Presentation.iOS.pas	TiOSNativeViewClass = class of TiOSNativeView;
.
fmx\FMX.Presentation.Style.Common.pas	TNativeStyledControlClass = class of TNativeStyledControl;
.
fmx\FMX.Presentation.Style.pas	TStyledPresentationClass = class of TStyledPresentation;
.
fmx\FMX.Presentation.Win.pas	TWinPresentationClass = class of TWinPresentation;
.
fmx\FMX.Printer.pas	TPrinterClass = class of TPrinter;
.
fmx\FMX.StdActns.pas	TCustomValueRangeClass = class of TCustomValueRange;
.
fmx\FMX.TabControl.pas	TTabItemClass = class of TTabItem;
.
fmx\FMX.Text.pas	TTextServiceClass = class of TTextService;
.
fmx\FMX.TextLayout.pas	TTextLayoutClass = class of TTextLayout;
.
fmx\FMX.Types.pas	TCaretClass = class of TCustomCaret;
fmx\FMX.Types.pas	TFmxObjectClass = class of TFmxObject;
fmx\FMX.Types.pas	TTabListClass = class of TTabList;
.
fmx\FMX.Types3D.pas	TContextClass = class of TContext3D;
fmx\FMX.Types3D.pas	TMaterialClass = class of TMaterial;
.
Indy10\Core\IdCommandHandlers.pas	TIdCommandHandlerClass = class of TIdCommandHandler;
.
Indy10\Core\IdContext.pas	TIdContextClass = class of TIdContext;
.
Indy10\Core\IdCustomTCPServer.pas	TIdServerContextClass = class of TIdServerContext;
.
Indy10\Core\IdCustomTransparentProxy.pas	TIdCustomTransparentProxyClass = class of TIdCustomTransparentProxy;
.
Indy10\Core\IdIOHandler.pas	TIdIOHandlerClass = class of TIdIOHandler;
.
Indy10\Core\IdReply.pas	TIdRepliesClass = class of TIdReplies;
Indy10\Core\IdReply.pas	TIdReplyClass = class of TIdReply;
.
Indy10\Core\IdServerIOHandlerSocket.pas	TIdIOHandlerSocketClass = class of TIdIOHandlerSocket;
.
Indy10\Core\IdThread.pas	TIdThreadClass = class of TIdThread;
Indy10\Core\IdThread.pas	TIdThreadWithTaskClass = class of TIdThreadWithTask;
.
Indy10\Core\IdUDPServer.pas	TIdUDPListenerThreadClass = class of TIdUDPListenerThread;
.
Indy10\Protocols\IdAttachment.pas	TIdAttachmentClass = class of TIdAttachment;
.
Indy10\Protocols\IdAuthentication.pas	TIdAuthenticationClass = class of TIdAuthentication;
.
Indy10\Protocols\IdCoder.pas	TIdDecoderClass = class of TIdDecoder;
Indy10\Protocols\IdCoder.pas	TIdEncoderClass = class of TIdEncoder;
.
Indy10\Protocols\IdCoder3to4.pas	TIdEncoder3to4Class = class of TIdEncoder3to4;
.
Indy10\Protocols\IdCookie.pas	TIdCookieClass = class of TIdCookie;
.
Indy10\Protocols\IdDNSResolver.pas	TResultRecordClass = class of TResultRecord;
.
Indy10\Protocols\IdDNSServer.pas	TIdMWayTreeNodeClass = class of TIdMWayTreeNode;
.
Indy10\Protocols\IdFTPListParseBase.pas	TIdFTPListParseClass = class of TIdFTPListBase;
.
Indy10\Protocols\IdHash.pas	TIdHashClass = class of TIdHash;
.
Indy10\Protocols\IdHeaderCoderBase.pas	TIdHeaderCoderClass = class of TIdHeaderCoder;
.
Indy10\Protocols\IdMessageCoder.pas	TIdMessageEncoderClass = class of TIdMessageEncoder;
.
Indy10\Protocols\IdMessageCollection.pas	TIdMessageItems = class of TIdMessageItem;
.
Indy10\Protocols\IdMessageParts.pas	TIdMessagePartClass = class of TIdMessagePart;
.
Indy10\Protocols\IdSSL.pas	TIdClientSSLClass = class of TIdSSLIOHandlerSocketBase;
Indy10\Protocols\IdSSL.pas	TIdServerSSLClass = class of TIdServerIOHandlerSSLBase;
.
Indy10\Protocols\IdSSLOpenSSLHeaders.pas	TIdOpenSSLAPICryptoError = class of EIdOpenSSLAPICryptoError;
Indy10\Protocols\IdSSLOpenSSLHeaders.pas	TIdOpenSSLAPISSLError = class of EIdOpenSSLAPISSLError;
.
Indy10\Protocols\IdZLibCompressorBase.pas	TIdZLibCompressorBaseClass = class of TIdZLibCompressorBase;
.
Indy10\System\IdException.pas	TClassIdException = class of EIdException;
.
Indy10\System\IdStack.pas	TIdSocketListClass = class of TIdSocketList;
Indy10\System\IdStack.pas	TIdStackClass = class of TIdStack;
.
internet\WBComp.pas	TBehaviorElementEventsClass = class of TBehaviorElementEvents;
internet\WBComp.pas	TCustomElementBehaviorClass = class of TCustomElementBehavior;
.
internet\Web.CGIHTTP.pas	TCGIRequestClass = class of TCGIRequest;
internet\Web.CGIHTTP.pas	TCGIResponseClass = class of TCGIResponse;
internet\Web.CGIHTTP.pas	TWinCGIRequestClass = class of TWinCGIRequest;
internet\Web.CGIHTTP.pas	TWinCGIResponseClass = class of TWinCGIResponse;
.
internet\Web.DBWeb.pas	THTMLTableColumnClass = class of THTMLTableColumn;
.
internet\Web.HTTPApp.pas	TContentParserClass = class of TAbstractContentParser;
.
internet\Web.Win.ISAPIThreadPool.pas	TISAPIThreadPoolClass = class of TISAPIThreadPool;
.
Property Editors\BindCompEdit.pas	TBindScopeFactoryClass = class of TBindScopeFactory;
Property Editors\BindCompEdit.pas	TComponentClassFactoryClass = class of TControlClassFactory;
Property Editors\BindCompEdit.pas	TControlFactoryClass = class of TControlFactory;
Property Editors\BindCompEdit.pas	// TControlFrameFactoryClass = class of TControlFrameFactory;
Property Editors\BindCompEdit.pas	TDataBindingListDesignerClass = class of TDataBindingListDesigner;
Property Editors\BindCompEdit.pas	TNavigatorFactoryClass = class of TNavigatorFactory;
.
Property Editors\BindCompExprEdit.pas	TBindCompExprDesignerClass = class of TBindCompExprDesigner;
Property Editors\BindCompExprEdit.pas	// TItemStateClass = class of TItemState;
.
Property Editors\BindVisualizers.pas	TBindExpressionVisualizerClass = class of TBindExpressionVisualizer;
.
Property Editors\ColnEdit.pas	TCollectionEditorClass = class of TCollectionEditor;
.
Property Editors\DSDesign.pas	TDSDesignerClass = class of TDSDesigner;
Property Editors\DSDefine.pas	TFieldAccessClass = class of TFieldAccess;
.
Property Editors\OCXReg.pas	TOleObjectEditorClass = class of TOleObjectEditor;
.
rtl\common\System.Actions.pas	TContainedActionClass = class of TContainedAction;
rtl\common\System.Actions.pas	TContainedActionLinkClass = class of TContainedActionLink;
rtl\common\System.Actions.pas	TContainedActionListClass = class of TContainedActionList;
.
rtl\common\System.Classes.pas	TBasicActionClass = class of TBasicAction;
rtl\common\System.Classes.pas	TBasicActionLinkClass = class of TBasicActionLink;
rtl\common\System.Classes.pas	TCollectionItemClass = class of TCollectionItem;
rtl\common\System.Classes.pas	TComponentClass = class of TComponent;
rtl\common\System.Classes.pas	TPersistentClass = class of TPersistent;
.
rtl\common\System.Notification.pas	TBaseNotificationCenterClass = class of TBaseNotificationCenter;
.
rtl\common\System.Permissions.pas	TPermissionsServiceClass = class of TPermissionsService;
.
rtl\common\System.Rtti.pas	TRttiClass = class of TRttiObject;
.
rtl\common\System.Sensors.pas	ESensorExceptionClass = class of ESensorException;
rtl\common\System.Sensors.pas	TGeocoderClass = class of TGeocoder;
rtl\common\System.Sensors.pas	TGpsStatusClass = class of TGpsStatus;
rtl\common\System.Sensors.pas	TSensorManagerType = class of TSensorManager;
.
rtl\common\System.Win.ComObj.pas	TAutoClass = class of TAutoObject;
rtl\common\System.Win.ComObj.pas	TComClass = class of TComObject;
rtl\common\System.Win.ComObj.pas	TTypedComClass = class of TTypedComObject;
.
rtl\common\System.Win.VCLCom.pas	TComponentProtectedAccessClass = class of TComponentProtectedAccess;
.
rtl\net\System.Beacon.pas	TBeaconManufacturerDataParserClass = class of TBeaconManufacturerDataParser;
.
rtl\net\System.Bluetooth.pas	TBluetoothManagerClass = class of TBluetoothLEManager;
rtl\net\System.Bluetooth.pas	TBluetoothManagerClass = class of TBluetoothManager;
.
rtl\net\System.Net.URLClient.pas	TURLClientClass = class of TURLClient;
.
rtl\sys\System.pas	TClass = class of TObject;
rtl\sys\System.pas	TClassHelperBaseClass = class of TClassHelperBase;
rtl\sys\System.pas	TInterfacedClass = class of TInterfacedObject;
.
rtl\sys\System.SysUtils.pas	ExceptClass = class of Exception;
.
rtl\sys\System.Types.pas	TMultiWaitEventClass = class of TMultiWaitEvent;
.
rtl\sys\System.Variants.pas	TCustomVariantTypeClass = class of TCustomVariantType;
.
soap\Soap.InvokeRegistry.pas	ERemotableExceptionClass = class of ERemotableException;
soap\Soap.InvokeRegistry.pas	TInvokableClassClass = class of TInvokableClass;
soap\Soap.InvokeRegistry.pas	TRemotableClass = class of TRemotable;
soap\Soap.InvokeRegistry.pas	TRemotableXSClass = class of TRemotableXS;
soap\Soap.InvokeRegistry.pas	TSOAPAttachmentClass = class of TSOAPAttachment;
soap\Soap.InvokeRegistry.pas	TSOAPHeaderClass = class of TSOAPHeader;
.
soap\wsdlimporter\WSDLCppWriter.pas	TWSDLCppWriterClass = class of TWSDLCppWriter;
.
soap\wsdlimporter\WSDLImpWriter.pas	TWSDLWriterClass = class of TWSDLWriter;
.
soap\wsdlimporter\WSDLpasWriter.pas	TWSDLpasWriterClass = class of TWSDLpasWriter;
.
tethering\System.Tether.Manager.pas	TTetheringAdapterClass = class of TTetheringAdapter;
tethering\System.Tether.Manager.pas	TTetheringProfileClass = class of TTetheringProfile;
tethering\System.Tether.Manager.pas	TTetheringProtocolClass = class of TTetheringProtocol;
.
ToolsAPI\ActionEditors.pas	TIDEActionsClass = class of TIDEActions;
.
ToolsAPI\DataExplorerAPI.pas	TFrameClass = class of TFrame;
.
ToolsAPI\DesignIntf.pas	TComponentEditorClass = class of TBaseComponentEditor;
ToolsAPI\DesignIntf.pas	TComponentGuidelinesClass = class of TBaseComponentGuidelines;
ToolsAPI\DesignIntf.pas	TCustomModuleClass = class of TBaseCustomModule;
ToolsAPI\DesignIntf.pas	TDragTargetClass = class of TDragTarget;
ToolsAPI\DesignIntf.pas	TPropertyEditorClass = class of TBasePropertyEditor;
ToolsAPI\DesignIntf.pas	TSelectionEditorClass = class of TBaseSelectionEditor;
.
ToolsAPI\PropertyCategories.pas	TPropertyCategoryClass = class of TPropertyCategory;
.
ToolsAPI\TreeIntf.pas	TComponentSprigClass = class of TComponentSprig;
ToolsAPI\TreeIntf.pas	TRootSprigClass = class of TRootSprig;
ToolsAPI\TreeIntf.pas	TSprigClass = class of TSprig;
.
vcl\CtlPanel.pas	TAppletModuleClass = class of TAppletModule;
vcl\CtlPanel.pas	TCPLAppletClass = class of TAppletModule;
vcl\CtlPanel.pas	TDataModuleClass = class of TDataModule;
.
vcl\Vcl.ActnCtrls.pas	TCustomToolScrollBtnClass = class of TCustomToolScrollBtn;
.
vcl\Vcl.ActnList.pas	TActionLinkClass = class of TActionLink;
.
vcl\Vcl.ActnMan.pas	TActionBarItemClass = class of TActionBarItem;
vcl\Vcl.ActnMan.pas	TActionBarsClass = class of TActionBars;
vcl\Vcl.ActnMan.pas	TActionClientClass = class of TActionClient;
vcl\Vcl.ActnMan.pas	TActionClientItemClass = class of TActionClientItem;
vcl\Vcl.ActnMan.pas	TActionClientLinkClass = class of TActionClientLink;
vcl\Vcl.ActnMan.pas	TActionClientsClass = class of TActionClients;
vcl\Vcl.ActnMan.pas	TCommandPropertiesClass = class of TCommandProperties;
vcl\Vcl.ActnMan.pas	TCustomActionBarClass = class of TCustomActionBar;
vcl\Vcl.ActnMan.pas	TCustomActionClass = class of TCustomAction;
vcl\Vcl.ActnMan.pas	TCustomActionControlClass = class of TCustomActionControl;
vcl\Vcl.ActnMan.pas	TCustomColorMapClass = class of TCustomActionBarColorMap;
.
vcl\Vcl.ActnMenus.pas	TAddRemoveItemClass = class of TCustomAddRemoveItem;
vcl\Vcl.ActnMenus.pas	TCustomAddRemoveItemClass = class of TCustomAddRemoveItem;
vcl\Vcl.ActnMenus.pas	TCustomizeActionToolBarClass = class of TCustomizeActionToolBar;
vcl\Vcl.ActnMenus.pas	TCustomMenuExpandBtnClass = class of TCustomMenuExpandBtn;
vcl\Vcl.ActnMenus.pas	TCustomPopupClass = class of TCustomActionPopupMenu;
vcl\Vcl.ActnMenus.pas	TMenuButtonControlClass = class of TCustomMenuButton;
vcl\Vcl.ActnMenus.pas	TMenuItemControlClass = class of TCustomMenuItem;
.
vcl\Vcl.AxCtrls.pas	TActiveFormClass = class of TActiveForm;
vcl\Vcl.AxCtrls.pas	TActiveXControlClass = class of TActiveXControl;
vcl\Vcl.AxCtrls.pas	TPropertyPageClass = class of TPropertyPage;
.
vcl\Vcl.ButtonGroup.pas	TGrpButtonItemClass = class of TGrpButtonItem;
vcl\Vcl.ButtonGroup.pas	TGrpButtonItemsClass = class of TGrpButtonItems;
.
vcl\Vcl.CaptionedDockTree.pas	TCaptionedDockTreeClass = class of TCaptionedDockTree;
vcl\Vcl.CaptionedDockTree.pas	TDockCaptionDrawerClass = class of TDockCaptionDrawer;
.
vcl\Vcl.CategoryButtons.pas	TBaseButtonItemClass = class of TBaseButtonItem;
vcl\Vcl.CategoryButtons.pas	TButtonCategoriesClass = class of TButtonCategories;
vcl\Vcl.CategoryButtons.pas	TButtonCategoryClass = class of TButtonCategory;
vcl\Vcl.CategoryButtons.pas	TButtonItemActionLinkClass = class of TButtonItemActionLink;
vcl\Vcl.CategoryButtons.pas	TButtonItemClass = class of TButtonItem;
.
vcl\Vcl.ComCtrls.pas	ECommonCalExceptClass = class of Exception;
vcl\Vcl.ComCtrls.pas	TComboBoxExStringsClass = class of TComboBoxExStrings;
vcl\Vcl.ComCtrls.pas	TComboExItemClass = class of TComboExItem;
vcl\Vcl.ComCtrls.pas	TComboExItemsClass = class of TComboExItems;
vcl\Vcl.ComCtrls.pas	TConversionClass = class of TConversion;
vcl\Vcl.ComCtrls.pas	THeaderSectionClass = class of THeaderSection;
vcl\Vcl.ComCtrls.pas	TListColumnClass = class of TListColumn;
vcl\Vcl.ComCtrls.pas	TListColumnsClass = class of TListColumns;
vcl\Vcl.ComCtrls.pas	TListItemClass = class of TListItem;
vcl\Vcl.ComCtrls.pas	TStatusPanelClass = class of TStatusPanel;
vcl\Vcl.ComCtrls.pas	TToolButtonActionLinkClass = class of TToolButtonActionLink;
vcl\Vcl.ComCtrls.pas	TTreeNodeClass = class of TTreeNode;
.
vcl\Vcl.Controls.pas	TControlActionLinkClass = class of TControlActionLink;
vcl\Vcl.Controls.pas	TControlClass = class of TControl;
vcl\Vcl.Controls.pas	TDockTreeClass = class of TDockTree;
vcl\Vcl.Controls.pas	TDragObjectClass = class of TDragObject;
vcl\Vcl.Controls.pas	THintWindowClass = class of THintWindow;
vcl\Vcl.Controls.pas	TPanningWindowClass = class of TCustomPanningWindow;
vcl\Vcl.Controls.pas	TWinControlActionLinkClass = class of TWinControlActionLink;
vcl\Vcl.Controls.pas	TWinControlClass = class of TWinControl;
.
vcl\Vcl.DockTabSet.pas	TTabDockPanelClass = class of TTabDockPanel;
.
vcl\Vcl.ExtCtrls.pas	TCategoryPanelClass = class of TCustomCategoryPanel;
vcl\Vcl.ExtCtrls.pas	TCategoryPanelSurfaceClass = class of TCategoryPanelSurface;
vcl\Vcl.ExtCtrls.pas	TEditButtonClass = class of TEditButton;
.
vcl\Vcl.Forms.pas	TCustomFormClass = class of TCustomForm;
vcl\Vcl.Forms.pas	TCustomFrameClass = class of TCustomFrame;
vcl\Vcl.Forms.pas	TFormClass = class of TForm;
.
vcl\Vcl.Graphics.pas	TGraphicClass = class of TGraphic;
.
vcl\Vcl.Imaging.GIFImg.pas	TColorLookupClass = class of TColorLookup;
vcl\Vcl.Imaging.GIFImg.pas	TGIFAppExtensionClass = class of TGIFApplicationExtension;
vcl\Vcl.Imaging.GIFImg.pas	TGIFExtensionClass = class of TGIFExtension;
.
vcl\Vcl.Imaging.pngimage.pas	ExceptClass = class of Exception;
vcl\Vcl.Imaging.pngimage.pas	TChunkClass = class of TChunk;
.
vcl\Vcl.ListActns.pas	TListControlItemClass = class of TListControlItem;
.
vcl\Vcl.Menus.pas	TMenuActionLinkClass = class of TMenuActionLink;
.
vcl\Vcl.OleAuto.pas	TAutoClass = class of TAutoObject;
.
vcl\Vcl.ScreenTips.pas	TScreenTipsWindowClass = class of TScreenTipsWindow;
.
vcl\Vcl.StdActns.pas	TCommonDialogClass = class of TCommonDialog;
.
vcl\Vcl.StdCtrls.pas	TButtonActionLinkClass = class of TButtonActionLink;
vcl\Vcl.StdCtrls.pas	TCustomComboBoxStringsClass = class of TCustomComboBoxStrings;
vcl\Vcl.StdCtrls.pas	TPushButtonActionLinkClass = class of TPushButtonActionLink;
.
vcl\Vcl.SvcMgr.pas	TServiceClass = class of TService;
.
vcl\Vcl.Themes.pas	TCustomElementServicesClass = class of TCustomElementServices;
vcl\Vcl.Themes.pas	TCustomStyleEngineClass = class of TCustomStyleEngine;
vcl\Vcl.Themes.pas	TCustomStyleServicesClass = class of TCustomStyleServices;
vcl\Vcl.Themes.pas	TStyleHookClass = class of TStyleHook;
vcl\Vcl.Themes.pas	TSysStyleHookClass = class of TSysStyleHook;
.
vcl\Vcl.Touch.GestureMgr.pas	TGestureStreamDataClass = class of TGestureStreamData;
.
vcl\Vcl.Touch.Gestures.pas	TCustomGestureRecognizerClass = class of TCustomGestureRecognizer;
vcl\Vcl.Touch.Gestures.pas	TGestureEngineClass = class of TCustomGestureEngine;
.
vcl\Vcl.Touch.Keyboard.pas	TCustomKeyboardButtonClass = class of TCustomKeyboardButton;
.
vcl\Vcl.WinXCtrls.pas	TToggleSwitchActionLinkClass = class of TToggleSwitchActionLink;
.
vcl\Vcl.WinXPanels.pas	TCardClass = class of TCard;
.
vcl\Vcl.WinXPickers.pas	TPickerColumnClass = class of TPickerColumn;
.
xml\Xml.adomxmldom.pas	Tox4DOMNodeClass = class of Tox4DOMNode;
.
xml\Xml.Internal.AdomCore_4_3.pas	TXmlSignalClass = class of TXmlSignal;
.
xml\Xml.Internal.CodecUtilsWin32.pas	TUnicodeCodecClass = class of TUnicodeCodec;
.
xml\Xml.Internal.EncodingUtils.pas	TEncodingInfoClass = class of TEncodingInfo;
.
xml\Xml.Internal.OmniXML.pas	OmniTXMLAttrClass = class of OmniTXMLAttr;
xml\Xml.Internal.OmniXML.pas	OmniTXMLCDATASectionClass = class of OmniTXMLCDATASection;
xml\Xml.Internal.OmniXML.pas	OmniTXMLCommentClass = class of OmniTXMLComment;
xml\Xml.Internal.OmniXML.pas	OmniTXMLDocumentTypeClass = class of OmniTXMLDocumentType;
xml\Xml.Internal.OmniXML.pas	OmniTXMLElementClass = class of OmniTXMLElement;
xml\Xml.Internal.OmniXML.pas	OmniTXMLProcessingInstructionClass = class of OmniTXMLProcessingInstruction;
xml\Xml.Internal.OmniXML.pas	OmniTXMLTextClass = class of OmniTXMLText;
.
xml\Xml.omnixmldom.pas	TODOMNodeClass = class of TODOMNode;
.
xml\Xml.Win.msxmldom.pas	TMSDOMNodeClass = class of TMSDOMNode;
xml\Xml.Win.msxmldom.pas	TMSXMLDOMDocumentFactoryClass = class of TMSXMLDOMDocumentFactory;
.
xml\Xml.XMLDoc.pas	TXMLNodeClass = class of TXMLNode;
xml\Xml.XMLDoc.pas	TXMLNodeCollectionClass = class of TXMLNodeCollection;
.
xml\Xml.XMLSchema.pas	TSchemaTranslatorClass = class of TXMLSchemaTranslator;

Delphi Tip of the Day - Export to CSV

This weekend I had a bunch of data inside a FireDAC FDMemtable and I wanted to play around with that data in Excel. So, the first thing I did was review which data formats Excel would accept.

That's excellent! Excel allows both importing from XML and JSON both of which can done using FDMemtable.SaveToFile method. ( SaveToFile documentation )

I created an XML file using the SaveToFile method and then tried to import that file into Excel.

That didn't go so well. Where's my data? I'm starting to feel that "I hate Delphi" thing happening again! Let's try JSON. So. I created a JSON file using the SaveToFile method and then tried importing into Excel. 

"I just want the data in Excel."

That didn't go so well either. I've imported text files hundreds of times into Excel and it just worked. I wasn't in the mood to figure out what was going on. I'll save that for another day. I just want the data in Excel. 

"I know CSV works. Let's find a solution."

I know that text or csv files import just fine into Excel so let's see how to create a CSV file using Delphi. A quick google search turned up exactly what I was looking for, a simple solution written by Uwe Rabbe six years ago. Thank you Uwe!

https://www.uweraabe.de/Blog/2013/11/06/poor-mans-csv-export/

[Archive]

This works with any TDataSet descendent! And just like that I love Delphi again.

Enjoy - Semper Fi
Gunny Mike
https://zilchworks.com

Feedback is always appreciated!

Delphi Tip of the Day - First Chance Exception

I'm in the process of upgrading a very old Delphi program that I wrote with my Turbo Pascal, top-down, structured-programming, mindset. One of the major updates I want is for the data to be in a database. So, I'm cruising right along making very good progress. After two days I finally get the algorithm working. And it's producing good results.

Now it's time to get those results into a database table. No big deal. FDMemtable and LocalSQL will do the trick. I'll just add a DataModule to the project. Drop in the necessary components. Add the fields using the fields editor.

I get everything working in the IDE. I'm good to go. All I need to do now is add the SQL. I code up the insert statements. I'm very excited. I will soon have the data in a database table. I push F9 and... BOOM!

"What the hell is a First chance exception?"

You've got to be kidding. I was so close. I started googling all over the internet trying to figure out what a First chance exception is. I just wanted an answer. After an hour or two I gave up. I was tired. I was frustrated. I'll deal with it in the morning. Off to bed I went.

"It turned out to be a very simple fix!"

The next day with a fresh attitude I returned to my project. It turns out this was a very simple fix. I didn't see or think about this the night before. When I added the DataModule to the project it was added to the bottom of the list.

The OnCreate method of Form1 calls the logic in another unit, which in-turn communicates with DataModule1. Because DataModule1 is created after Form1 gets created it caused an exception. All I had to do was move the DataModule1 before Form1.

I literally had the cart before the horse. I remember getting burned by this in the past but totally forgot about it.

Enjoy!
Semper Fi,
Gunny Mike

Feedback is always appreciated.

Delphi Tip of the Day - Object Inspector Search

I was watching an excellent video on how to use the batch move capabilities within Delphi to import text data into a database and had one of those "What the heck just happened" moments. The object inspector was only displaying the "Name" property.

What the heck just happened...

I rewound the video by about 20 seconds and paid careful attention to what was going on. The presenter used the "search" box associated with the Object Inspector. What? I had no idea you could do that. Wow! Game Changer!

I've been staring at the object inspector for years and never even saw the search box even though it's right there, plain as day, in my face. Sure beats scrolling up and down through all the properties anytime I wanted to make a change.

Game Changer!

Alternate Game Changer!

I'd like to thank Bruce McGee for the following "Quick Edit" tip:

Right-click on a control at design time and select Quick Edit from the drop-down menu. It works for VCL and FMX controls. The VCL image on DocWiki is not correct. It actually reads "Caption" instead of "Text" in my version of Delphi.

http://docwiki.embarcadero.com/RADStudio/Rio/en/Quick_Edit_(VCL)
http://docwiki.embarcadero.com/RADStudio/Rio/en/Quick_Edit_(FireMonkey)


Enjoy!
Semper Fi,
Gunny Mike

Delphi - SQLite Sample Projects

I've been exploring SQLite within Delphi. There are several sample SQLite applications that come with Delphi if you selected to install the samples during setup. I've put together the list of SQLite samples that are available.

The common samples file path is located here:
..\Studio\20.0\Samples\Object Pascal\Database\FireDAC\Samples\

FireDAC.SQLiteIniFile Demo Sample 

This sample uses FireDAC to connect to an SQLite database that emulates the structure and the operations of an INI File.

AddOn\SQLiteIniFile\Demo\SQLiteIniDemo.dproj

---

FireDAC.TFDLocalSQL MegaFMX Sample 

The sample shows different TFDLocalSQL applications.

Comp Layer\TFDLocalSQL\MegaFMX\LSQLMega.dproj

---

FireDAC.SQLite Encryption Sample 

This sample demonstrates how to encrypt/decrypt an SQLite database.

DBMS Specific\SQLite\Encryption\SQLite_Encrypt.dproj

---

Controlling Database Access Rights 

The SQLite is an embedded DBMS. This implies that it is a single user DBMS and does not need such concepts as a user, access rights, and so on. Still, some application can benefit from an access right control, for example:

•  An application can restrict rights depending on an end-user license. A demo license means less possibilities, a full license provides all possibilities. 
• Multi-tier data access frameworks can use their own user concept and control data access rights using some generic approach. 

 Again, SQLite provides a unique feature allowing you to authorize or not SQL commands. To work with this API, a Delphi application should set the OnAutorize event handler of the TSQLiteDatabase object, which is a database connection wrapping object. Hook this event after a database connection is opened.

DBMS Specific\SQLite\OnAuthorize\SQLite_OnAuthorize.dproj

---

Hooking Database Updates 

SQLite provides an unique API allowing you to monitor all updates to a database. This feature can be used, for example, to log all updates to a DB. To work with this API, a Delphi application should set the OnUpdate event handler of the TSQLiteDatabase object, which is a database connection wrapping object. Hook this event after a database connection is opened.

DBMS Specific\SQLite\OnUpdate\SQLite_OnUpdate.dproj

---

Custom Collations 

SQLite stores and handles all character data either in UTF8 or UTF16, depending on the OpenMode connection parameter. When SQLite needs to compare or sort a character data, it has to know what rules to use for this. The rules are known as a collation.

DBMS Specific\SQLite\UserCollation\SQLite_UserColl.dproj

---

Custom Functions 

SQLite does not support the stored procedure or function concept, as it allows you to use the host language environment to extend the engine functionality. SQLite allows you to register host language functions in the SQLite engine and use them in the SQL commands. FireDAC simplifies this by introducing the TFDSQLiteFunction component.

DBMS Specific\SQLite\UserFunc\SQLite_UserFunc.dproj

---

The SQLite R*Tree Module 

An R-Tree is a special index that is designed for doing range queries. R-Trees are most commonly used in geospatial systems where each entry is a rectangle with minimum and maximum X and Y coordinates. Given a query rectangle, an R-Tree is able to quickly find all entries that are contained within the query rectangle or which overlap the query rectangle.

This idea is easily extended to three dimensions for use in CAD systems. R-Trees also find use in time-domain range look-ups. For example, suppose a database records the starting and ending times for a large number of events. A R-Tree is able to quickly find all events that were active at any time during a given time interval, or all events that started during a particular time interval, or all events that both started and ended within a given time interval. And so forth. 

DBMS Specific\SQLite\UserRTree\SQLite_UserRTree.dproj

---

Title: SQLite 

Brief Description: This snippet shows you how to populate a listbox from a SQLite database using FireDAC and LiveBindings. See the section called "Accessing a Database" in the Mobile Tuturials topic in the documentation for more information and licensing requirements.

Platforms supported: iOS, Android

..\Mobile Snippets\FireDACSQLite\FireDAC_SQLite.dproj

---

Enjoy
Semper Fi,
Gunny Mike

Delphi Tip of the Day - OnShow SetFocus or Form1.ActiveControl

I'm creating a simple database program to explore how SQLite works within Delphi. I want to be able to switch between three databases: Album, Test, and World. So I added a TComboBox and populated the Items property with three values; Album, Test, World. I also set TextHint := 'Choose Database...';

object ComboBox1: TComboBox
    Left = 8
    Top = 8
    Width = 121
    Height = 21
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    TextHint = 'Choose database...'
    Items.Strings = (
      'Album'
      'Test'
      'World')

When I ran the program the TextHint for the ComboBox did not display:

That is not what I was expecting. The Combox was the active control which negates being able to see the TextHint "Choose database..."

So I added a little piece of code to the form's onShow event.

procedure TForm1.FormShow(Sender: TObject);
begin
  StatusBar1.SetFocus;
end;

Now when I run the program right from the get-go the StatusBar componet has the focus and the ComboBox displays as intended.

Sometimes it's the small things that make all the difference!

An alternative  to using the OnShow event was suggested in the comments.

Form1.ActiveControl := StatusBar1

I love Delphi! 

Enjoy!
Semper Fi
Gunny Mike

Delphi Tip of the Day - Autosave Project Desktop

I am not a full-time Delphi guy. So, when I'm learning Delphi by reading OPC (other people's code) I want to make the best of my time. I was studying some code from Cary Jensen that goes with Chapter 6 of his Delphi in Depth: FireDAC book.

When I was done understanding a section of his code, I simply folded it. I figured I beat that code up enough in my mind. I understood it. And I don't need to look at it again, at least not right now. I also didn't want to be distracted by having those code blocks expanded. 

I started a brand new project in Delphi to write some of my own code that was similar but different, just to reinforce what I learned. When I was finished, I reopened Jensen's code and the pieces of code I had folded were no longer folded. 

It turns out this is an easy fix. Simply enable "Save project desktop when closing".

Tools > Options > IDE > Saving and Desktop

Not only did this keep sections of the code I had folded, folded, it remembered whether my last view was Code view or Design view. It also kept track of where in the code view I left off. I was looking at line 522 in the source code when I close the project, Delphi put me right back at line 522 the next time I reopened the project. How cool is that.

Enjoy!

Semper Fi

Gunny Mike

embt docwiki