[Anton93]

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

Код:

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'));