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

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, как формат хранения символов (текста), оформление хранится отдельно. Так что начните с поиска собственно формата хранения данных, а как именно хранятся там символы дело второе.

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

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

19.04.2024 17:47:11/0.032995939254761/0