Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как загрузить юникоды в мемо?

Delphi , Компоненты и Классы , TMemo и TRichEdit

Как загрузить юникоды в мемо?

Code:

procedure LoadUnicodeFile(const filename: string; strings: TStrings);
 
procedure SwapWideChars(p: PWideChar);
begin
   while p^ <> #0000 do
   begin
     p^ := WideChar(Swap(Word(p^)));
     Inc(p);
   end;
end;
 
var
ms: TMemoryStream;
wc: WideChar;
pWc: PWideChar;
begin
ms := TMemoryStream.Create;
try
   ms.LoadFromFile(filename);
   ms.Seek(0, soFromend);
   wc := #0000;
   ms.Write(wc, sizeof(wc));
   pWC := ms.Memory;
   if pWc^ = #$FEFF then {normal byte order mark}
     Inc(pWc)
   else if pWc^ = #$FFFE then
   begin {byte order is big-endian}
     SwapWideChars(pWc);
     Inc(pWc);
   end
   else
     ; {no byte order mark}
   strings.Text := WideChartoString(pWc);
finally
   ms.free;
end;
end;

Использовать

LoadUnicodeFile(filename, memo1.lines); Взято с Delphi Knowledge Base: http://www.baltsoft.com/

Статья Как загрузить юникоды в мемо? раздела Компоненты и Классы TMemo и TRichEdit может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


:: 2009-12-18 17:23:37 :: re:Как загрузить юникоды в мемо?

пользователь: ramil.

пожалуйста дайте полный листинг программы как загрузить и сахранить *.doc, а желательно *.mht


:: 2009-12-21 16:49:22 :: re:Как загрузить юникоды в мемо?

пользователь: kan.

*.doc и *.mht используют unicode, как формат хранения символов (текста), оформление хранится отдельно. Так что начните с поиска собственно формата хранения данных, а как именно хранятся там символы дело второе.


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TMemo и TRichEdit ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
20.10.2021 01:32:25/0.0013117790222168/0