Hallo zusammen
habe ein Problem mit dem Restore einer
DB bei dem immer die Fehlermeldung
Exception class EStringListError with message 'List index out of bounds (0)'
auftaucht.
Delphi-Quellcode:
procedure Tfrm_backup_restore.btn_restoreClick(Sender: TObject);
begin
with DM.Restore_Service do
begin
OpenDialogBackup.Options := [ofFileMustExist];
if not (OpenDialogBackup.Execute) then exit;
Options := [Replace, CreateNewDB];
DatabaseName.Clear;
BackupFile.Clear;
memo_log.Clear;
memo_log.Lines.Add('*** Database file(s): ***');
for i := 0 to OpenDialogDatabase.Files.Count - 1 do
memo_log.Lines.Add('*** Backup file(s): ***');
DatabaseName.Add (IncludeTrailingPathDelimiter(GetCurrentDir)+('GIDEONS_DB.FDB'));
for i := 0 to OpenDialogBackup.Files.Count - 1 do
begin
BackupFile.Add(OpenDialogBackup.Files.Strings[i]);
memo_log.Lines.Add(OpenDialogBackup.Files.Strings[i]);
end;
memo_log.Lines.Add(
'==================== Restore started ====================');
Active := True;
btn_backup.Enabled := False;
btn_restore.Enabled := False;
ServiceStart;
while not (Eof) do
memo_log.Lines.Add(GetNextLine);
Active := False;
btn_backup.Enabled := True;
btn_restore.Enabled := True;
memo_log.Lines.Add(
'==================== Restore ended ====================');
end;
end;
kann mir da jemand weiterhelfen.
Bin schon seit einiger Zeit am Testen.
Shalom
Manfred