DB Restore mit Fibplus

[manfred_h]

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