UTF-8 vs ASCII[128-255] - Общие вопросы Delphi

Alex Cones · 30.07.2010, 22:50

В общем пытаюсь думать, как создать функцию U8 такого типа:

Код:

UTF8STRING := U8(ASCIISTRING);

И наоборот, функцию AS:

Код:

ASCIISTRING := AS(UTF8STRING);

Если у кого есть готовые, буду только рад. Желательно, чтобы перевод был не более страницы кода. Переводить буду только русские заглавные буквы, что упрощает задачу.

psycho-coder · 30.07.2010, 23:14

Unit
System

function Utf8ToAnsi(const S: UTF8String): string;
function AnsiToUtf8(const S: string): UTF8String;

Alex Cones · 30.07.2010, 23:21

Пля.... Весь день зря искал. Спасибо.

30.07.2010, 22:50	#1
Alex Cones Trust no one. Старожил Регистрация: 07.04.2009 Сообщений: 6,526	UTF-8 vs ASCII[128-255] В общем пытаюсь думать, как создать функцию U8 такого типа: Код: `UTF8STRING := U8(ASCIISTRING);` И наоборот, функцию AS: Код: `ASCIISTRING := AS(UTF8STRING);` Если у кого есть готовые, буду только рад. Желательно, чтобы перевод был не более страницы кода. Переводить буду только русские заглавные буквы, что упрощает задачу. SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА. МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

30.07.2010, 23:21	#3
Alex Cones Trust no one. Старожил Регистрация: 07.04.2009 Сообщений: 6,526	Пля.... Весь день зря искал. Спасибо. SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА. МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ansi в UTF-8 и наоборот UTF-8 в Ansi	Alar	Работа с сетью в Delphi	3	09.12.2010 17:02
Нужно написать алгоритм в СИ шефрования и дешифрования AES 128	velamut	Помощь студентам	0	18.06.2010 01:08
String большого размера, более 255 String[255]	bitSoft	Общие вопросы Delphi	9	28.03.2010 19:45
Qt, exited with code 128	Грымзик	Qt и кроссплатформенное программирование С/С++	1	28.10.2009 13:35
15 кб вместо 128	nub'	Свободное общение	16	12.08.2009 16:02

30.07.2010, 23:14	#2
psycho-coder Участник клуба Регистрация: 06.04.2009 Сообщений: 1,524	Unit System function Utf8ToAnsi(const S: UTF8String): string; function AnsiToUtf8(const S: string): UTF8String;