Вопрос № 141817: Здравствуйте ребята!!! Помогите мне пожалуйста, есть форма, на ней 8 Edit'ов. Как мне сделать, чтоб данные в текстовый файл занасились в таком виде как ФИО: Иванов Иван Иванович Номер телефона: 89171778654 или 326798 и так далее. З...
Вопрос № 141.817
Здравствуйте ребята!!! Помогите мне пожалуйста, есть форма, на ней 8 Edit'ов. Как мне сделать, чтоб данные в текстовый файл занасились в таком виде как ФИО: Иванов Иван Иванович Номер телефона: 89171778654 или 326798 и так далее. Заранее спасибо всем откликнувшимся
Отвечает: SHERRY
Здравствуйте, Глуханьков Сергей Александрович! Допустим, что поле Edit1 используется для ввода ФИО, Edit2 для номера телефона и т.д. Объявляем переменную файлового типа: var f: text; В теле программы нужно будет задать этой переменной физический файл на диске: AssignFile(f, 'My_File.txt'); Если файл не существует, то его нужно создать: Rewrite(f); Или перед созданием проверить его на предмет существования: if not FileExists('My_File.txt')
then Rewrite(f); Когда файл открыт для записи, применить следующие команды: writeln(f, 'ФИО: ', Edit1.Text); writeln(f, 'Номер телефона: ', Edit2.Text); И так далее.. По окончании операций, не забудьте закрыть файл! CloseFile(f);
Best regards!
Исправлена функция закрытия текстового файла. Всё-таки Дельфи, а не ТурбоПаскаль.
--------
∙ Отредактировал: sir Henry, Академик
∙ Дата редактирования: (время московское)
--------- Самурай без меча подобен самураю с мечом, только без меча..
Ответ отправил: SHERRY (статус: Студент)
Ответ отправлен: 20.08.2008, 16:03 Оценка за ответ: 5 Комментарий оценки: Спасиб большое выручаете не раз, помогло, у меня что-то в голове вертелось наподобие, но так и не воплотилось
Вы имеете возможность оценить этот выпуск рассылки. Нам очень важно Ваше мнение!
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.