Предыстория: Надеюсь, Вы читали Урок №3. Его "HTML"-вариант. Так вот там в конце каждой строки
был поставлен тег "<br/>". Его я ставил в ручную. То есть на первой строке написал, а затем копировал
в последующие строки. По забывчивости (я занимаюсь Wap-страницами, а не html) я написал "<br/>",
а не "<br>". Заметил это слишком поздно, когда уже рассылка ушла на сервер "Subscribe.ru", и,
придя ко мне в виде авторской копии отобразилась с ошибками. Тогда я решил посветить сегодняшний
урок автоматизации вставления тега "<br>" в рассылку. Надеюсь, что вышло поучительно.
Задание: Научиться работать с файлами. Открытие, чтение и запись.
Загружаем Делфи. На форму переносим две Мемо и одну кнопку. В поле "Caption" кнопки пишем:
"Преобразовать". Мемо1 и Мемо2 растягиваем по горизонтали, ставим одну над другой и справа
размещаем кнопку. У обоих Мем параметр "ScrollBars" ставим в "ssVertical". Затем в событии
Формы "Creat" пишем "очиститель Мемо":
procedure TForm1.FormCreate(Sender: TObject);
begin
// Очистка Мемо1 и Мемо2
Memo1.Clear;
Memo2.Clear;
end;
Затем в обработчике события кнопки пишем:
procedure TForm1.Button1Click(Sender: TObject);
var
s, ss: string;
{
s - для задания имени входного файла
ss - для задания имени выходного файла
}
Fin, Fout: TextFile;
{
Fin - файловая переменная входного файла
Fout - файловая переменная выходного файла
}
begin
// Задаем имя входного файла
s := 'in.txt';
// Задаем имя выходного файла
ss := 'out.txt';
// Подключаемся к выходному файлу
Assignfile(Fout, ss);
// Если он существует, то очищаем его, если нет - создаем
Rewrite(Fout);
// Подключаемся к входному файлу
Assignfile(Fin, s);
// Переходим к первой строке открытого файла
Reset(Fin);
// Создаем цикл до тех пор, пока не кончится входной файл
while not eof(Fin) do
begin
// Читаем строку входного файла
readln(Fin, s);
// Выводим прочитанную строку в Мемо1
Memo1.Lines.Add(s);
// Добавляем к концу строке еще одну строку ('<br>')
s := s + '<br>';
// Выводим результат в Мемо2
Memo2.Lines.Add(s);
// Записываем строку в выходной файл
Writeln(Fout, s)
end;
// Закрываем файлы
Closefile(Fout);
Closefile(Fin);
end;
Вот и все. Теперь создаем произвольный файл (или переименовываем существующий) "in.txt" в
папке, где расположена программа и запускаем программу. Нажимаем Кнопку и видим, что в поле
Мемо2 появляется преобразованные строки из Мемо1, которые соответственно взяты из файла "in.txt".
Затем программа создает файл "out.txt", в который записывает содержимое Мемо2.
