CopyFile() kopiert letzte File nicht.

[Sir Rufo]

Zunächst würde ich das wie folgt coden:

Delphi-Quellcode:

procedure sicherungskopie( const FileList : TStrings );
var
iZ : Integer;
wcLok : PWideChar;
ss : array[0..256] of char;
begin

 for iZ := 0 to FileList.Count-1 do begin
  wcLok := pwidechar( 'D:\abcjob\' + 'SICHERUNGSKOPIE_' + IntToStr( iZ ) + '.dbf' );
  StrPCopy( ss, hauptfenster.Form1.ListBox1.Items[ iZ ] ); 
  CopyFile( ss, wcLok, false ); 
 end;

end;

Der Aufruf erfolgt dann so:
sicherungskopie( hauptfenster.Form1.ListBox1.Items ); Warum hast du wcLoc und ss unterschiedlich deklariert?
CopyFile erwartet als Parameter beide Male PWideChar Somit sollte das hier funktionieren

Delphi-Quellcode:

procedure sicherungskopie( const FileList : TStrings );
var
  iZ : Integer;
  src, tar : string;
begin

  for iZ := 0 to FileList.Count-1 do 
    begin
      tar := 'D:\abcjob\' + 'SICHERUNGSKOPIE_' + IntToStr( iZ ) + '.dbf';
      src := FileList[ iZ ];
      CopyFile( PWideChar( src ), PWideChar( tar ), false ); 
    end;

end;