Mit dieser Funktion kann man die Struktur einer
db-Tabelle auslesen. Sie gibt von jedem Feld der Tabelle die Nummer, den Feldnamen und den Fildtyp zurück.
Der Funktion wird der Pfad und der Name der Tabelle übergeben. Die Struktur wird in der globalen Stringliste slErgebnis gespeichert, die Funktion gibt einen String zurück. Entweder 'Ok', wenn kein Fehler aufgetreten ist, oder einen Fehlertext, der in der Funktion festgelegt wird.
Delphi-Quellcode:
function TFrmStruktur.FktStruktur(StrDateiname:
String):
String;
var
IntZaehler:Integer;
sType:
String;
begin
try
result:='
undefinierter Fehler';
slErgebnis.clear;
try
TblTabelle.close;
TblTabelle.tablename := StrDateiname;
TblTabelle.Open;
except
result:='
Fehler beim lesen der Datei !'
end;
// Die Struktur wird in der Stringliste slErgebnis gespeichert
for IntZaehler:=0
to TblTabelle.FieldCount-1
do
begin
case TblTabelle.Fields[IntZaehler].datatype
of
ftUnknown :
begin sType:='
Unknown';
end;
ftString :
begin sType:='
String';
end;
ftSmallint :
begin sType:='
Smallint';
end;
ftInteger :
begin sType:='
Integer';
end;
ftWord :
begin sType:='
Word';
end;
ftBoolean :
begin sType:='
Boolean';
end;
ftFloat :
begin sType:='
Float';
end;
ftCurrency :
begin sType:='
Currency';
end;
ftBCD :
begin sType:='
BCD';
end;
ftDate :
begin sType:='
Date';
end;
ftTime :
begin sType:='
Time';
end;
ftDateTime :
begin sType:='
DateTime';
end;
ftBytes :
begin sType:='
Bytes';
end;
ftVarBytes :
begin sType:='
VarBytes';
end;
ftAutoInc :
begin sType:='
AutoInc';
end;
ftBlob :
begin sType:='
Blob';
end;
ftMemo :
begin sType:='
Memo';
end;
ftGraphic :
begin sType:='
Graphicc';
end;
ftFmtMemo :
begin sType:='
FmtMemo';
end;
ftParadoxOle :
begin sType:='
ParadoxOlee';
end;
ftDBaseOle :
begin sType:='
DBaseOle';
end;
ftTypedBinary :
begin sType:='
TypedBinary';
end;
ftCursor :
begin sType:='
Cursor';
end;
ftFixedChar :
begin sType:='
FixedChar';
end;
ftWideString :
begin sType:='
WideString';
end;
ftLargeInt :
begin sType:='
LargeInt';
end;
ftADT :
begin sType:='
ADT';
end;
ftArray :
begin sType:='
Array';
end;
ftReference :
begin sType:='
Reference';
end;
ftDataSet :
begin sType:='
DataSet';
end;
ftOraBlob :
begin sType:='
OraBlob';
end;
ftOraClob :
begin sType:='
OraClob';
end;
ftVariant :
begin sType:='
Variant';
end;
ftInterface :
begin sType:='
Interface';
end;
ftIDispatch :
begin sType:='
IDispatch';
end;
ftGuid :
begin sType:='
Guid';
end;
end;
slErgebnis.add(inttostr(IntZaehler)+#9+TblTabelle.Fields[IntZaehler].FieldName+#9+sType+#9+
inttostr(TblTabelle.Fields[IntZaehler].size));
end;
if slErgebnis.Count>0
Then
result:='
OK';
finally
end;
end;
[edit=Matze][code] durch [delphi]-Tags ersetzt und Code formatiert. Mfg, Matze[/edit]