function test_string(pStr: pchar): pchar; cdecl;
var
  F1: TextFile;
  s: string;
begin

       assignfile(F1, ExtractFileDir(ParamStr(0)) + '\Test4.log');
       Rewrite(F1);
       WriteLn(F1,pStr);
       CloseFile(F1);

  Result:=pstr;

end;

NLS_CHARACTERSET = CL8MSWIN1251
NLS_NCHAR_CHARACTERSET=AL16UTF16

Result:=pstr;

function test_string(pStr: pchar): pchar; cdecl;
var
  Strm: TStream;;
begin
  Strm := TFileStream.Create(ParamStr(0)) + '\Test4.log', fmCreate);
  try
    Strm.Write(pStr^, 6);
  finally
    Strm.Free;
  end;
  Result:=pstr;
end;

  FileName:= ExtractFileDir(ParamStr(0)) + '\Test4.log';
  Strm := TFileStream.Create(FileName, fmCreate);
  try
    Strm.Write(pStr^, length(pStr)*2);
  finally
    Strm.Free;
  end;

NLS_CHARACTERSET = CL8MSWIN1251
NLS_NCHAR_CHARACTERSET=AL16UTF16

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы