Код: Выделить всё
if NOT FDB.Connected then
FDB.Connected:=true;
L:=TStringList.Create;
try
FDB.GetFieldNames(TblName,L);
Код: Выделить всё
if NOT FDB.Connected then
FDB.Connected:=true;
L:=TStringList.Create;
try
FDB.GetFieldNames(TblName,L);
Определись какого типа у тебя TblNameAleksandr. писал(а):Простой вроде код:
1-FDB.GetFieldNames(TblName,L);
2-SELECT * FROM TblName WHERE 0=1 откликается
Код: Выделить всё
procedure GetFieldNames(const TableName: String; List: TStrings);
Код: Выделить всё
FDB.GetFieldNames('TblName',L);