Як завантажити юнікоди в мемо

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

Як завантажити юнікод в мемо?

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 Inc(pWc) else if pWc^ = #$FFFE then begin SwapWideChars(pWc); Inc(pWc); end else ; 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:Як завантажити юнікоди в мемо?

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

:: 2009-12-21 16:49:22 :: re:Як завантажити юнікоди в мемо?

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

---