Это можно сказать хрестоматийная задача. Как мы это делали ещё в школе на Турбо Паскале (Turbo Pascal), так это до сих пор работает в Delphi. Конечно же похожие примеры можно найти в сети, но Интернет — большой, а хороших примеров мало. Потому я время от времени, выкладываю вроде таких вот заготовочек.
А для тех, кто желает поучиться, я написал комментарии.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
const txFileName = 'myFile.txt'; //оформим пример в виде процедуры //на входе сторока, которую надо сохранить в файл procedure saveIntoTextFile(txt: string); var txtfile: TextFile; begin //для начало нужно собрать файла, куда мы сохраняем текст path:= ExtractFilePath(application.ExeName) + '/' + txFileName; //ассоциируем название файла с файловой переменной AssignFile(txtfile, path); //выключаем проверку ошибок ввода-вывода //это такой вариант - для ленивых, чтобы и программа не парилась //и нам чтобы не реализовывать все проверки по-честному {$I-} if not FileExists(path) then //файла нет - создадим Rewrite(txtfile) else //если есть - откроем и установим указатель записи в конец Append(txtfile); {$I+} //пишем наш текст в открытый файл Write(txtfile, txt); //освобождаем дескрипторы, закрываем файл Closefile(txtfile); end; |
Файл мы создаём или дополняем в той же папке, что и наша программа. Для этого обращаемся к экземпляру класса application. Если бы не эта строка, пример мог бы и на Turbo Pascal пойти :).
