Hallo!
Das komische ist, dass es wohl teilweise an den Dateien liegt.
Die Textdateien werden kopiert. Das ganze ist ne Funktion zur
Wiederherstellung einer Datenbank. Hier nochmal der ganze Code:
Delphi-Quellcode:
procedure TForm1.Wiederherstellen1Click(Sender: TObject);
var
pfad : string;
begin
SelectDirectory('Bitte Ordner auswählen:', '' ,pfad);
if MessageDlg(' Achtung die Datenbank wird wiederhergestellt! ' + #13#10 +
' Alle vorhandenen Daten werden hiermit gelöscht! ',mtWarning,[mbOk, mbCancel],0)
= mrok then
begin
copyfile(PChar(pfad +'\adressen.adi'),PChar((ExtractFilePath(ParamStr(0))+ '\daten\adressen.adi')),false);
copyfile(PChar(pfad +'\adressen.adt'),PChar((ExtractFilePath(ParamStr(0))+ '\daten\adressen.adt')),false);
copyfile(PChar(pfad +'\einstellungen.txt'),PChar((ExtractFilePath(ParamStr(0))+ '\daten\einstellungen.txt')),false);
copyfile(PChar(pfad +'\gruppen.txt'),PChar((ExtractFilePath(ParamStr(0))+ '\daten\gruppen.txt')),false);
MessageDlg(' Die Wiederherstellung der Datenbank war erfolgreich! ' + #13#10 +
' Bitte starten sie die Anwendung neu! ' ,mtInformation,[mbOK],0);
end;
end;
