Code: Alles auswählen
program project2;
uses
SysUtils, db, dbf, TypInfo;
var
dataset: TDbf;
f: TField;
begin
dataset := TDbf.Create(nil);
try
dataset.FilePathFull := ExtractFilePath(Paramstr(0));
dataset.TableName := 'DeadlyMushrooms.dbf';
dataset.Open;
for f in dataset.Fields do
WriteLn(
'FieldNo ', f.FieldNo, ': ',
f.FieldName,
', DataType: ', GetEnumName(TypeInfo(TFieldType), integer(f.DataType)),
', Size: ', f.Size,
', DataSize: ', f.DataSize,
', DisplayWidth ', f.DisplayWidth
);
finally
dataset.Free;
end;
ReadLn;
end.
Code: Alles auswählen
FieldNo 1: ID, DataType: ftInteger, Size: 0, DataSize: 4, DisplayWidth 10
FieldNo 2: SCIENTIFIC, DataType: ftString, Size: 30, DataSize: 31, DisplayWidth 30
FieldNo 3: COMMONNAME, DataType: ftString, Size: 30, DataSize: 31, DisplayWidth 30
FieldNo 4: ORDER, DataType: ftString, Size: 20, DataSize: 21, DisplayWidth 20
FieldNo 5: GENUS, DataType: ftString, Size: 20, DataSize: 21, DisplayWidth 20
FieldNo 6: NOTES, DataType: ftMemo, Size: 0, DataSize: 0, DisplayWidth 10
FieldNo 7: PICTURE, DataType: ftBlob, Size: 0, DataSize: 0, DisplayWidth 10