BCS Create Delphi Class

There are those times when a new Delphi class need to be created.  This application does that for the end user.

cg01

When the user clicks on Generate Class option the following dialog appears

cg02

Simply type in the class name and tap the OK control.  The application then shows the next dialog.

cg03

The resulting source code is listed below.

unit BCSStatU;
 
interface
 
uses Dialogs, Forms, System.Classes, SysUtils, Windows;
 
const
   maxArray = 7;
 
var
  sc: TStringList;
 
type
 
  TBCSStat = class(TCustomForm)
 
  private
 
  public
 
end;
 
var
 
  BCSStatc: TBCSStat;
 
implementation
 
end.

With one dialog for collecting the class name and one dialog for selecting the target sub directory any Delphi class can be created.

A 32 bit executable program may be downloaded by clicking here.
A 64 bit executable program may be downloaded by clicking here.
The component documentation can be found by clicking here.
The source code may be found by clicking here.

Mr. Arch Brooks, Software Engineer, Brooks Computing Systems, LLC authored this article.

Leave a Reply