6
Conn : TODBCConnection;
7
FieldNames : TStringList;
11
Conn:=TODBCConnection.Create(Nil);
15
FieldNames:=TStringList.Create;
16
FieldNames.Sorted:=True;
18
Conn.GetFieldNames('FPDev',FieldNames);
19
Writeln('Found ',FieldNames.Count,' Fields in table FPDev : ');
20
For I:=0 to FieldNames.Count-1 do
21
Writeln(FieldNames[i]);