procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
// Get the path to the data
APath := UpperCase(ExtractFilePath(Application.ExeN ame));
BPath:=APath;
if APath[Length(APath)] <> '\' then
begin
APath := APath + '\';
BPath := BPath + '\';
end;
i:=PosEx('\REPAIR',APath,1);
Delete(APath,i,7);
BPath:=Apath;
APath:=APath + 'DATABASE';
end;
procedure TForm1.RxGIFAnimator1Click(Sender: TObject);
var
i:integer;
list:Tstrings;
Result,messages:Boolean;
begin
Result:=False;
Messages:=True;
list := TStringList.Create;
try
session.GetTableNames(APath,list);
for i:=0 to list.Count-1 do
begin
Table1.DatabaseName:=APath;
Table1.TableName:=List.Strings[i];
Application.ProcessMessages;
Form1.Enabled:=False;
p.Progress:=0;
p.Visible:=True;
Application.ProcessMessages;
Result:=Table1.RepairTable(True);
if not Result then
Messages:=false;
end;
finally
list.Free;
end;
form1.Enabled:=True;
P.Progress:=0;
end;