Каракули вместо текста

[Anton931]

Считываю текст в переменную из файла, но в место теста китайские иероглифы, как исправить?

function FileOpenText(strFile:PChar):PChar;
var
  f:thandle;
  dwResSize, dwRead:DWORD;
  pRes: PChar;
begin
  result:='';
  F:=CreateFile(pchar(strFile), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if F=INVALID_HANDLE_VALUE then exit;
  dwResSize:=GetFileSize(F, nil);
  pRes:=SysGetMem(dwResSize);
  ReadFile(F, pRes^, dwResSize, dwRead, nil);
  CloseHandle(F);
  Result:=pRes;
end;

.....

ShowMessage(FileOpenText('loginusers.txt'));

[Stilet]

Можно узнать причину использования WinAPI в данной задаче?

[northener]

Сообщение от Stilet

Можно узнать причину использования WinAPI в данной задаче?

Да еще при полном непонимании что есть PChar и с чем его едят.