Лень - штука серьезная ;) Решил поискать готовые решения в интернете. Минут 20 угрохал на поиски, так ничего толкового и не нашел. Потом вдруг вспомнил - я ж программист :)
Суть: вставляете исходный текст в верхнее окно, нажимаете кнопку,
соответствующую необходимому действию, и в нижнем окне получаете
конвертированный текст, который затем можно копировать и вставлять куда надо (например, в блокнот - он прекрасно справляется с UTF-8).
Написал за 5 минут для создания хтмл-страничек в UTF-8 кодировке.
Пользуйтесь на здоровье :)
Изменения: версия 1.1
В новой версии имеется возможность работать напрямую с файлами без использовании функций "копипаста" (копировать/вставить).
Для этого можно поместить ярлык на программу в папку "C:\Documents and
Settings\User\SendTo". Затем на файле, который необходимо
конвертировать, вызываете контекстное меню, выбираете "Отправить >"
и указываете на ярлык к программе. При этом запускается Ansi2Utf8.exe,
в верхнее окно которого загружается содержимое выбранного файла.
Нажатием соответствующих кнопок производите конвертирование в
необходимом направлении. Рядом с кнопками конвертирования появляется
кнопка "Сохранить", при нажатии на которую исходный файл
перезаписывается информацией из нижнего окна.
Удобно? Жду отзывов и предложений.
Исходный код (delphi 7):
procedure TForm1.B1Click(Sender: TObject); begin
sMemo2.Text:=AnsiToUtf8(sMemo1.Text) end;
procedure TForm1.B2Click(Sender: TObject); begin
sMemo2.Text:=Utf8ToAnsi(sMemo1.Text) end;
procedure TForm1.sMemoEnter(Sender: TObject); begin
(sender as TsMemo).SelectAll end;