Опять русские буквы...

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Аватара пользователя
shade
энтузиаст
Сообщения: 879
Зарегистрирован: 21.02.2006 19:15:48
Откуда: http://shamangrad.net/
Контактная информация:

Сообщение shade »

AnsiToUTF - перевод из текущей локали в UTF
под win используется две таблицы символов - одна для оконных приложений (Ansi), другая для консоли (Oem, в частности DOS). Так же есть функция (на winapi) для конвертирования между этими кодировками и eom-unicode.

Код: Выделить всё

uses windows;

function AnsiToDos(text: string): string;
var
  p: PChar;
  Len: Integer;
begin
  Len := Length(text);
  GetMem(p, Len);
  CharToOemBuff(PChar(text), p, Len);
  SetString(Result, p, Len);
  FreeMem(p);
end;


Не проще ли блобы хранить в unicode кодировке? (utf-8, utf-16...)
Ответить