Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 171452
18.08.2009, 15:54
0.00 руб.
0 3 2
Компьютеры Программирование
Имеется задание:
При нажатии кнопки Submit, создается папка,
в ней создаются (обязательно в кодировке UTF-8) текстовые файлы.

никак не могу понять что значит текстовые файлы в кодировке UTF-8. как их создать в этой кодировке?

Обсуждение

Неизвестный
18.08.2009, 17:09
общий
это ответ
Здравствуйте, Akahaos.

Вот тут описана кодировка: UTF-8

А вот интересная ссылка по значениям символов кириллицы в этой кодировке (заодно и браузер проверите на корректность отображения UTF-8 :)) символы кириллицы в UTF-8
давно
Евгений/Genia007/
Профессионал
153662
1070
18.08.2009, 21:17
общий
это ответ
Здравствуйте, Akahaos.
В delphi есть функции для работы с UTF-8 - это функции UTF8ToAnsi и AnsiToUTF8. Они соответственно перекодируют из UTF8 в кодировку ANSI и обратно. По Вашему заданию можно из memo брать содержимое для текстовых файлов и перекодировать их в UTF-8 с последующим сохранением в файл.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  s: TStringList;
  i: integer;
begin
  s:= TStringList.Create;
  for i:= 0 to Memo1.Lines.Count - 1 do
  s.Add(AnsiToUTF8(Memo1.Lines[i]));
  CreateDir(ExtractFilePath(ParamStr(0)) + 'test');
  s.SaveToFile('test\proba.txt');
  s.Free;
end;
5
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru
давно
Евгений/Genia007/
Профессионал
153662
1070
18.08.2009, 21:25
общий
Забыл. Проверить можно если попытаться открыть созданный текстовый файл при помощи ворда, он при открытии этого файла выдаст окно предпросмотра, где можно выбрать различные кодировки символов.
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru
Форма ответа