Чем заменить указатель?

[Гocть]

Имеется некий работающий код Delphi, который хотелось бы портировать в программу. Есть правда одна загвоздка: непонятно как в DX передавать указатель на адрес строки:

Код: Выделить всё

function WriteFile(
          hFile: THandle;
{ >> }  const Buffer,
          nNumberOfBytesToWrite: cardinal;
          var lpNumberOfBytesWritten: cardinal;
          lpOverlapped: variant): boolean;  // POverlapped
external 'WriteFile@kernel32 stdcall';

Buffer был dword, стал cardinal
именно в него требуется передать указатель:

Код: Выделить всё

procedure Test(S: String);
Writed: Cardinal;
begin
   WriteFile(F, PChar(S)^, Length(S), Writed, null);
end;

Каким способом это можно сделать в программе?

[admin]

Там не DWORD, а LPCVOID, вроде как (https://docs.microsoft.com/en-us/windows/desktop/api/fileapi/nf-fileapi-writefile). Попробуйте String, по крайней мере в TStream.Write, где параметр в Lazarus не имеет типа, именно String.

[Гocть]

Там не DWORD, а LPCVOID, вроде как

В исходниках такое:
function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD; var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; external 'kernel32' name 'WriteFile';, но фактически работает как Pointer.

Попробуйте String

Не вышло . Как только меняю указатель на string, функция перестает работать. Неужели из за одного параметра в dll все пихать?

[admin]

Если приглядеться Buffer без типа.

[Гocть]

Тоже обратил внимание, но подумал что это такая фишка ide. Что это может значить?

[admin]

Ну тут например можно почитать (первое, что нашел).

[Гocть]

Легче не стало увы . В ide процедура с формальным типом компилируется без проблем а DX исправно сообщает: ':' expected
Как же этот Dword-Pointer победить то?