Hallo,
der Titel ist leider nicht sehr aussagekräftig aber ich weiß nicht so recht wie ich das sonst benennen sollte... sorry dafür.
Zu meinem Problem:
Beim testen der Absolute Database Komponente ist mir ein Sourcecode aufgefallen der mich
total verwirrt. Es geht hierbei um das Import/Export Tool welches auch im Source-Code beiliegt.
Hier mal einige kurze Ausschnitte (... steht für weiteren Code):
Delphi-Quellcode:
...
function HasVChk(Table: TTable; Field: TField;
var VChk: TVChk): boolean;
function ValToStr(VCHK: DBIVCHK; FldType: word):
string;
var
L: longint;
I: Integer;
D: Double;
MyDate:
BDE.DBIDATE;
...
...
und:
Delphi-Quellcode:
...
procedure TImportExportForm.PerformImport;
var
i, tableCount: Integer;
tables: TListBox;
tableName: String;
PromptOverwrite: Boolean;
mr: TModalResult;
Log: String;
procedure AddDefaultMinMaxFieldValues;
var
VChk: TVChk;
i: Integer;
DoRestructureTable: Boolean;
s: String;
begin
ABSTable.Open;
ABSTable.Close;
...
...
...
Log := Log+s;
end;
end;
begin
PromptOverwrite := True;
IsStopped := False;
AbsDB.Close;
...
...
end;
end;
end;
var
Props: CURProps;
V: VCHKDesc;
hCur: hDBICur;
...
Der Compiler meldet keinen Fehler.
Ist dies einfach nur eine ungewöhnliche (aber erlaubte) Syntax?
(Habe das komplette File für interessierte mal drangehangen...)