1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

          Verz:= ExtractFilePath(ParamStr(0));
          OeffnenFehlgeschlagen := true;
          i := 0;

          repeat
            inc(i);

// Tabelle schließen:

            Form2.Table1.Active:= false;[b]
            try
              [/b]Verz:= ExtractFilePath(ParamStr(0));
              Form2.Table1.DatabaseName:= Verz;
              Form2.Table1.TableName:= 'TEMP\SFPT.DB';
              Form2.Table1.TableType:= ttParadox;
              Form2.Table1.Exclusive:= true;
// Tabelle entleeren:
              Form2.Table1.EmptyTable;
              Form2.Table1.Active:= false;
              Form2.Table1.Exclusive:= false;
              Form2.Table1.close;

              Form2.Table1.DatabaseName:= Verz;
              Form2.Table1.TableName:= 'TEMP\SFPT.db';
// Versuch, leere Tabelle zu öffnen
              Form2.Table1.Active:= true;

              OeffnenFehlgeschlagen := false;

            except
// wenn Versuch fehlgeschlagen, dann Kopierversuch:

              Form2.Table1.close;
              Form2.Table1.Exclusive:= false;
              OeffnenFehlgeschlagen := true;
              if FileExists('TEMP\SFPT.DB') then DeleteFile('TEMP\SFPT.DB');
              CopyFile('TEMP\SFPTStruktur.DB','TEMP\SFPT.DB', false);
              warte5Sekunden;
            end;
          until NOT (OeffnenFehlgeschlagen) OR (i >= 50);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

i := 0;
repeat
 
  try

    inc(i);

    Tabelle leeren
    Tabelle öffnen

  except
   
    falls Fehler beim Öffnen:
    Tabellenstruktur einer leeren Hilfstabelle über die Tabelle kopieren
    dann 5 sekunden warten und nochmal versuchen
 
 end;

until (leere Tabelle fehlerfrei geöffnet) OR ( i > 50);