Hi zusammen
Ich hab folgende Aufzählungs-Typen:
Delphi-Quellcode:
TTableEnum =(CreateTblStrassen, CreateTblOrt, CreateTblAdressen, CreateTblUser)+
(CreateTblFile, CreateTblAuthor, CreateTblDocuments);
TIndexEnum = (CreateIndexTblAdressen_TblOrt, CreateIndexTblAdressen_TblStrassen, CreateIndexTblUser_TblAdressen, +
CreateIndexTblAuthor_TblUser, CreateIndexTblFile_TblDocuments, CreateIndexTblDocuments_TblAuthor);
Das funktioniert so nicht. Die Bezeichner der ursprünglichen Typen sind wesentlich kürzer, so dass diese Deklarationen immer eine Zeile beanspruchten und so das Problem nicht auftrat.
Andrerseits werden die verwendeten Bezeichner gleichzeitig als Prozedurbezeichner verwendet und können deshalb nicht anders als diese geschrieben werden. Als Beispiel:
Delphi-Quellcode:
for i := Low(TTableEnum) to High(TTableEnum) do
begin
case TTableEnum of
1: ExecuteSQL(TblDocuments);
2: ExecuteSQL(TblAuthor);
3: ExecuteSQL(TblFile);
4: ExecuteSQL(TblUser);
5: etc...
end;
end;
Execute ruft die jeweiligen Methoden zur Tabellenerzeugung auf (Parameter ASQL):
Delphi-Quellcode:
function TDMLSQLite.ExecuteSQL(ASQL : String) : Boolean;
var ReportList: TStringlist;
begin
ReportList := TStringlist.Create;
try
try
FDSQLiteConnection.ExecSQL(ASQL);
FDSQLiteConnection.GetInfoReport(ReportList);
Gruss
Delbor