Unicode

[Pedro]

Здраствуйте! Почитал много тем на форуме, но так и не получилось загрузить в мемо файл в кодировке юникод. Если сохраняю в кодировке Utf8 то при загрузке в мемо не отображаются казахские буквы. А когда просто в юникоде - несколько иероглифов. Подскажите что делать.

[Квэнди]

Если вы используете среду младше 2009, то для этого необходимо использовать только сторонние компоненты с поддержкой Unicode. В 2009-й версии среды поддержка unicode реализована изначально

[BOBAH13]

Создайте окно текстовое с использованием CreateWindowW и SetWindowTextW и все будек ок.

[DeKot]

ВОВАН13 а подробнее можно по теме, или ссылку.Меня тоже интересует этот вопрос в Дельфи 7.

[eskander]

Возьмите готовые компоненты с поддержкой юникода, например TNT http://www.torry.net/vcl/edits/diffe...dedEditors.zip

[BOBAH13]

Ну к примеру, щас разрабатываю один продукт, и пришлось делать диалговые окна где будет уникод... К сожалению, нужны были супер пупер эффекты, поэтому я прибег к разработки radio box, check box, и еще кучи контролов само ручно где использовать GDI+ - DrawString, а ей параметром идет WideString - что и есть уникод.

Ссылки как таковой незнаю, знаю что надо регить свой класс Windows.RegisterClassW, потом в обработчике своем вызывать DefWindowProcW, ну и создавать как я сказал выше окно именно с CreateWindowW, таким образом виндовс будет работать с окном как с Unicode. Так же посмотрите в MSDN про стили класса EDIT (вроде так). Т.е. по сути можно на легке создать окно-редактор текста в уникод. Если это для вас так сложно то щас могу попробовать сделать.

Лично я щас так же на семерке, думаю переходить на 2009, там почитал не мало преимуществ.

var
  Edit: HWND;
  wStr: WideString;
begin

  Edit := CreateWindowW('EDIT', '', WS_CHILD or WS_VISIBLE or WS_BORDER or
    ES_AUTOVSCROLL or ES_LEFT or ES_MULTILINE,
    10, 10, 200, 120,
    Handle, DWord(-1), HInstance, NIL);

  wStr := 'Hello Wolrd! Привет Мир!';

  SetWindowTextW(Edit, PWCHAR(wStr));
end;

[AmXSe]

памоему в дельфе есть стандартные функции, типа Utf8ToUnicode() и подобные..

[BOBAH13]

Сообщение от AmXSe

памоему в дельфе есть стандартные функции, типа Utf8ToUnicode() и подобные..

А причем тут это, вы хоть задумались ?

[inndim]

Сообщение от Pedro

А когда просто в юникоде - несколько иероглифов. Подскажите что делать.

procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer: WideString;
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('your file.txt', fmOpenRead);
  try
    SetLength(buffer, Stream.Size);
    Stream.Read(Buffer[1], Stream.Size);
    Memo1.Lines.Text := Buffer;
  finally
    Stream.Free;
  end;