Class TMain (unit Clsgenfm)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure ClearBtnClick(Sender: TObject);


procedure GenerateBtnClick(Sender: TObject);


function GetAsType(fd: TFieldDef): string;


function GetVarName(fd: TFieldDef): string;


function GetVarType(fd: TFieldDef): string;


procedure InfoComments;


procedure WriteGetProcedures(fd: TFieldDef);


procedure WriteSetProcedures(fd: TFieldDef);

End of unit

Properties

Events

Variables

BaseClassEdit : TEdit;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


ClassEdit : TEdit;


ClearBtn : TBitBtn;


DataSource1 : TDataSource;


GenerateBtn : TBitBtn;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


OpenDialog : TOpenDialog;


OutputEdit : TEdit;


Panel1 : TPanel;


Table : TTable;


TableNameEdit : TEdit;


TextFile : string;

Private declarations


Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure ClearBtnClick(Sender: TObject);


procedure GenerateBtnClick(Sender: TObject);


function GetAsType(fd: TFieldDef): string;


function GetVarName(fd: TFieldDef): string;


function GetVarType(fd: TFieldDef): string;


procedure InfoComments;


procedure WriteGetProcedures(fd: TFieldDef);


procedure WriteSetProcedures(fd: TFieldDef);

End of unit


Properties


Events


Variables


BaseClassEdit : TEdit;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


ClassEdit : TEdit;


ClearBtn : TBitBtn;


DataSource1 : TDataSource;


GenerateBtn : TBitBtn;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


OpenDialog : TOpenDialog;


OutputEdit : TEdit;


Panel1 : TPanel;


Table : TTable;


TableNameEdit : TEdit;


TextFile : string;

Private declarations