Таблицы Paradox Help

[User77]

HELP!!! Есть локальная база Paradox ну и АРМ по работе с ней. нАПИСАН КРИВО не обрабатывается ни одно исключение, нет сервисных функций (индексация и т.д.). После сбоя генерируется исключение - нет индекса .... Вопрос можно ли по таблице узнать что за индексы были ну и перестроить индксные файлы своей программой. Исходников нет, нет и связи с программистом. АРМ делался на заказ ( мля руки бы ему оторвал). Да архива тоже нет. Бэкап - тоже нет.

[Stilet]

Ну можно заглянуть в базу через скажем Database Desktop и там глянуть настройки. Можно среверсить программу на предмет стрингов содержащих наименования индексов...

[mihali4]

Вопрос можно ли по таблице узнать что за индексы были ну и перестроить индксные файлы своей программой.

Можно.
Проектик делаете примитивный:
Form1, Table. Ну и кнопки по вашему желанию. Я расскажу только о восстановлении индексов. Вот кусочек из моей программы для этой цели (ну очень давно писал):

uses ,,, BDEUtils;

procedure TForm1.fDbiRegenIndexes(TblName: TTable);
begin
Check(DbiRegenIndexes(TblName.Handle));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var SearchRec: TSearchRec;
    Result: integer;
begin
if BitBtn1.Caption='Проверка и восстановление базы данных' then
begin
aliasdir:='H:\STATIST\BASE';
Result := FindFirst(aliasdir+'\*.DB',faAnyFile,SearchRec);
while Result = 0 do
begin
try
BitBtn1.Caption:='Восстанавливается таблица '+SearchRec.Name;
BitBtn1.Repaint;
Table.Close;
Table.TableName:=UpperCase(SearchRec.Name);
Table.Open;
fDbiRegenIndexes(Table);
except
on EDBEngineError do
begin
Form1.SendToBack;
ShowMessage('Не удалось переиндексировать '+Table.TableName);
Form1.BringToFront;
end;
end;
end;
end;
BitBtn1.Caption:='Проверка и восстановление базы данных';
end;

В общем, примерно так...