для начала попробовала в Support-> SQL написать что то типа:
select count(*) from katsopr;
ну и по разному... так у меня ничего и не получилось... то то не так то аргумент не тот, вобщем плюнула на это дело. И нацарапала интерфейсик... но он что то не хочет работать как хотелось бы...
Гляньте пожалуйста... У кого какие мысли есть.
Interface GetTable;
Create View
from x$files;
file f;
HandleEvent
cmInit:
{
var k,i:longint;
StartNewVisual(vtRotateVisual,vfBreak+vfTimer+vfConfirm,'',0);
SetVisualTitle('Создание списка таблиц');
f.Openfile('c:\qqqq.txt',stCreate);
_Loop x$files
{
k:=RecordsInTable(x$files.xf$code);
//если кол-во записей не нулевое то выкинуть в txt
if k<>0
f.writeln(string(x$files.xf$code)+' - '+string(k));
}
f.close;
StopVisual('',0);
}
end; // HandleEvent InterFace
end.