Lazarus Movefile Umlaute

[Moombas]

@HolgerX:

Delphi-Quellcode:

procedure ArchiveClick(Sender: TObject);
var
  i    : integer;
  Path : String;
begin
  Path := 'xxx';
  for i := 0 to CSVList.Count - 1 do
  begin
    if fileexists(Path + CSVList.Items.Strings[i]) then
    begin
      movefile(PChar(Path + CSVList.Items.Strings[i]), PChar(Path + 'Archiv\' + CSVList.Items.Strings[i])); //akzeptiert keine Umlaute
    end;
    if fileexists(Path + 'DB\' + CSVList.Items.Strings[i] + '.db') then
    begin
      //MySQL;
      movefile(PChar(Path + 'DB\' + CSVList.Items.Strings[i] + '.db'), PChar(Path + 'DB\Archiv\' + CSVList.Items.Strings[i] + '.db'));  //akzeptiert keine Umlaute
      movefileW(PWideChar(Path + 'DB\' + CSVList.Items.Strings[i] + '.db'), PWideChar(Path + 'DB\Archiv\' + CSVList.Items.Strings[i] + '.db')); //akzeptiert keine Umlaute    
    end;
  end;
  ListFiles(CSVList, Path);
end;

@mjustin: Japp, aber LazUtils ist bereits vorhanden im Projektinspector