freepascal.ru

В проекте Delphi этот код компилится и работает:
NewFileName:string;
SourceFileName:string;
....
CopyFile(PChar(SourceFileName), PChar(NewFileName), false);

Портирую в FPC, получаю:
FilesNames.pas(408,12) Error: Illegal type conversion: "ShortString" to "^Char"

Чего он от меня добивается? Пробовал разные варианты преобразования типов (в ascdef.inc функция описана как
function CopyFile(lpExistingFileName:LPCSTR; lpNewFileName:LPCSTR; bFailIfExists:WINBOOL):WINBOOL; external 'kernel32' name 'CopyFileA';
)
ничего не помогает

если портируешь то почитай про волшебную дериктиву
{mode deplhi}

Надо включить режим AnsiStrings, а также, скорее всего, и режим компиляции objfpc или delphi ({$mode delphi}{$H+} в начале файла или -Sdh в командной строке).

CopyFile(PChar(@SourceFileName), PChar(@NewFileName), false);
вот такая конструкция проверку на синтаксические ошибки прошла, работает или нет даже не могу сказать, так как при портировании возникли уже другие трудности, открываю другую ветку

AnsiStrings тоже помогло

Сомневаюсь, что из этого выйдет что-то хорошее

CopyFile(PChar(@SourceFileName), PChar(@NewFileName), false);

Герасим писал(а):CopyFile(PChar(@SourceFileName), PChar(@NewFileName), false);

На мой взгляд правильнее будет написать
CopyFile(PChar(@SourceFileName[1]), PChar(@NewFileName[1]), false);

Т.к. в Дельфи короткая строка начинается с количества символов.