Delphi в мире Юникода


             

StringCodePage


Подпрограммой StringCodePage будет возвращаться значение Word, которое соответствует кодовой странице для заданной строки.

Рассмотрим следующий код: procedure TForm88.Button2Click(Sender: TObject); type   // Кодовая страница для ANSI-кириллицы - 1251   CyrillicString = type AnsiString(1251); var   A: AnsiString;   U: UnicodeString;   U8: UTF8String;   C: CyrillicString; begin   A := 'This is an AnsiString';   Memo1.Lines.Add('AnsiString Codepage: ' + IntToStr(StringCodePage(A)));   U := 'This is a UnicodeString';   Memo1.Lines.Add('UnicodeString Codepage: ' + IntToStr(StringCodePage(U)));   U8 := 'This is a UTF8string';   Memo1.Lines.Add('UTF8string Codepage: ' + IntToStr(StringCodePage(U8)));   C := 'This is a CyrillicString';   Memo1.Lines.Add('CyrillicString Codepage: ' + IntToStr(StringCodePage(C))); end;

Результатом выполнения приведенного выше кода будет: The Codepage for an AnsiString is: 1252 The Codepage for an UnicodeString is: 1200 The Codepage for an UTF8string is: 65001 The Codepage for an CyrillicString is: 1251




Содержание  Назад  Вперед