VPF::Сохранение текста в Unicode - Форум программистов

JS2

Дата 28.10.2009, 11:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 25.3.2009

Репутация: нет
Всего: нет

написал процедуры сохранения/загрузки текста в/из файл/а в формате Unicode. Вот код:

Код


procedure Stream_SaveAsUTF16LEFile(var Source: string; const FileName: string);
var
  Bytes: Word;
  Buf: PWideChar;
  Size_: Integer;
begin
  with TMemoryStream.Create do
    try
      Bytes := $FFFE;
      Write(Bytes, 2);
      Size_ := Length(Source);
      GetMem(Buf, (Size_ + 1) * 2);
      try
        FillChar(Buf^, (Size_ + 1) * 2, 0);
        StringToWideChar(Source, Buf, Size_ + 1);
        Write(Buf^, Size_ * 2);
      finally
        FreeMem(Buf);
      end;
      SaveToFile(FileName);
  finally
    Free;
  end;
end;

procedure Stream_LoadAsUTF16LEFile(out Dest: string; const FileName: string);
var
  Buf: PWideChar;
  Bytes: Word;
begin
  with TMemoryStream.Create do
   try
     LoadFromFile(FileName);
     if Size < 2 then
       Exit;
     Read(Bytes, 2);
     if Bytes <> $FFFE then
       Exit;
     GetMem(Buf, Size);
     try
       FillChar(Buf^, Size, 0);
       Read(Buf^, Size - 2);
       Dest := WideCharToString(Buf);
     finally
       FreeMem(Buf);
     end;
   finally
     Free;
   end;
end;

Помогите с оптимизацией. Что можно убрать или сократить?

JS2

Дата 28.10.2009, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 25.3.2009

Репутация: нет
Всего: нет

Справился своими силами. Переделал так:

Код


procedure SaveToUnicodeFile(const FileName: string; var Source: string);
var
  Header: Word;
begin
  Header := $FEFF;
  with TFileStream.Create(FileName, fmOpenWrite or fmCreate) do
  try
    Write(Header, 2);
    Write(WideString(Source)[1], Length(Source) * SizeOf(Word));
  finally
    Free;
  end;
end;

function LoadFromUnicodeFile(const FileName: string): string;
var
  Header: Word;
  WS: WideString;
begin
  with TFileStream.Create(FileName, fmOpenRead) do
    try
      Read(Header, 2);
      SetLength(WS, (Size div SizeOf(Word)) - 1);
      Read(WS[1], Size);
      Result := WS;
    finally
      Free;
    end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »