| Class TMain (unit Clsgenfm) |
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);| 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;| 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