Tabelle löschen und Autowert auf 1 setzen

[nahpets]

Hallo,

wenn Du für den Zugriff auf die Tabelle die Komponente TTable benutzt, so kannst Du die Tabelle in der IDE öffnen und dann im Objektinspektor die Eigenschaft StoreDefs auf True setzen. Dadurch wird die Tabellendefinition mit in das Formular übernommen.
Nun kannst Du zur Laufzeit hergehen, die Tabelle schließen, die Datei löschen und mit TTable.CreateTable neu erstellen. Damit hast Du eine neue Datei mit den Ursprungsdefinitionen.

Bei späteren Änderungen an der Tabellenstruktur muss Du nur darauf achten, dass Du die Definitionen im Formular immer mit anpasst. Dies geht aber über schließen der Tabelle in der IDE (Active auf False im Objektinspektor), Storedefs auf False, kompilieren, Active wieder auf True und Storedefs auf True und wieder kompilieren. Active kannst Du danach im Objektinspektor wieder auf False setzen.
Selbst wenn Du alle übrigen Zugriffe über SQL machst, so kannst Du für das Löschen und das Neuerstellen der Tabelle eine Prozedure unter Benutzung einer TTable-Komponente machen. Dies sollte die übrige Programmlogik nicht beeinflussen.