Вопрос № 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 Комментарий оценки: Спасиб большое выручаете не раз, помогло, у меня что-то в голове вертелось наподобие, но так и не воплотилось