| Class TFormHilfsprogramm (unit Mainunit) |
TForm
| Constructors |
| Functions |
procedure BitBtnAbbruchClick(Sender: TObject);
procedure BitBtnOkClick(Sender: TObject);
procedure ButtonFileSaveClick(Sender: TObject);
procedure ComboBoxAliasChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CheckRefInt;
procedure CheckThisRefInt(aTableSource : TTable; aDataNr : longint;
aTableMaster : TTable; aFieldnameSource : string);
procedure ErmittleRefIntWerte(const aTableName : string);
procedure Protokolliere(aString : string);| Properties |
| Events |
| Variables |
BitBtnAbbruch : TBitBtn;
BitBtnOk : TBitBtn;
ButtonFileSave : TButton;
ComboBoxAlias : TComboBox;
DirectoryListBox1 : TDirectoryListBox;
EditLogFile : TEdit;
FileListBox1 : TFileListBox;
Label1 : TLabel;
LabelLogDatei : TLabel;
MemoErklaerung : TMemo;
PanelButton : TPanel;
SaveDialog1 : TSaveDialog;
TableSource : TTable;
Win95Gauge : TWin95Gauge;
FieldnameSource1 : string;
FieldnameSource2 : string;
FieldnameSource3 : string;
FieldnameSource4 : string;
FieldnameSource5 : string;
MyMasterList : TList;
RefIntFehler : integer;
TheAlias : string;
txt : TextFile;| Constructors |
| Functions |
procedure BitBtnAbbruchClick(Sender: TObject);'In dieser Version können nur Ref.Int. auf einem Feld überprüft werden.'
procedure BitBtnOkClick(Sender: TObject);
procedure ButtonFileSaveClick(Sender: TObject);
procedure ComboBoxAliasChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CheckRefInt;
procedure CheckThisRefInt(aTableSource : TTable; aDataNr : longint;
aTableMaster : TTable; aFieldnameSource : string);'Das Hilfsprogramm konnte nicht korrekt durchgeführt werden.'
procedure ErmittleRefIntWerte(const aTableName : string);
procedure Protokolliere(aString : string);| Properties |
| Events |
| Variables |
BitBtnAbbruch : TBitBtn;
BitBtnOk : TBitBtn;
ButtonFileSave : TButton;
ComboBoxAlias : TComboBox;
DirectoryListBox1 : TDirectoryListBox;
EditLogFile : TEdit;
FileListBox1 : TFileListBox;
Label1 : TLabel;
LabelLogDatei : TLabel;
MemoErklaerung : TMemo;
PanelButton : TPanel;
SaveDialog1 : TSaveDialog;
TableSource : TTable;
Win95Gauge : TWin95Gauge;
FieldnameSource1 : string;Private declarations
FieldnameSource2 : string;
FieldnameSource3 : string;
FieldnameSource4 : string;
FieldnameSource5 : string;
MyMasterList : TList;
RefIntFehler : integer;
TheAlias : string;
txt : TextFile;