Справка MyChat

Сохранить текст в файл в указанной кодировке. Если файл существовал до этого, он будет перезаписан поверху.

Синтаксис

function SaveTextToFile(sFileName, sText: string; iEncodingType: integer): int64;

Параметры и возвращаемые значения

Результат функции

Пример

Функция читает содержимое текстового файла в формате UTF-8 из C:\Temp\testmessage.txt, затем выводит результат в консоль, используя декодирование и не используя его (файл должен существовать, можете создать его вручную для теста или скачать).

var
  sText: array[1..7] of string;
  sOut: string;
  i, iSize: integer;
begin
  sText[1] := 'There''s a lady who''s sure';
  sText[2] := 'All that glitters is gold';
  sText[3] := 'And she''s buying a stairway to heaven';
  sText[4] := 'When she gets there she knows';
  sText[5] := 'If the stores are all closed';
  sText[6] := 'With a word she can get what she came for';
  sText[7] := 'Oh oh oh oh and she''s buying a stairway to heaven';
  
  sOut := '';
  
    for i := 1 to 7 do sOut := sOut + sText[i] + CRLF;
  
  mLogScript(sOut, '');
  mLogScript('Size: ' + IntToSTr(sOut) + ' bytes', '');
  
  iSize := SaveTextToFile('c:\temp\stairway-to-heaven-utf-16.txt', sOut, 3);
  
  mLogScript('Size on the disk in big-endian UTF-16 format: ' + IntToStr(iSize) + ' bytes', '');
end.

Результат работы скрипта

[17:28:18] (Log "SaveTextToFile"): There's a lady who's sure

All that glitters is gold

And she's buying a stairway to heaven

When she gets there she knows

If the stores are all closed

With a word she can get what she came for

Oh oh oh oh and she's buying a stairway to heaven

[17:28:18] (Log "SaveTextToFile"): Size: 248 bytes

[17:28:18] (Log "SaveTextToFile"): Size on the disk in big-endian UTF-16 format: 498 bytes

[17:28:18] (Run "SaveTextToFile"): Время выполнения скрипта: 11 мс

[17:28:18] (Run "SaveTextToFile"): Скрипт выполнен успешно.

Ещё посмотреть

IntToStr

mLogScript