Консультация № 141817
20.08.2008, 12:02
0.00 руб.
0 6 1
Здравствуйте ребята!!!
Помогите мне пожалуйста, есть форма, на ней 8 Edit'ов. Как мне сделать, чтоб данные в текстовый файл занасились в таком виде как
ФИО: Иванов Иван Иванович
Номер телефона: 89171778654 или 326798
и так далее.
Заранее спасибо всем откликнувшимся

Обсуждение

Неизвестный
20.08.2008, 15:10
общий
Поясните вопрос, он задан крайне некорректно. Откуда берутся данные? В какой файл требуется добавлять? При чем тут вообще ваши Edit'ы?
Неизвестный
20.08.2008, 15:35
общий
Пишу программу, наподобии напоминалки, поясняю, зачем там едиты:
1 едит ФИО
2 Адрес
3 Номер телефона
и так далее.....
ВОПРОС: как бы мне в программе написать, чтоб ту информацию которую вводили с помощью едитов можно было записывать в текстовый файл?
Но не просто так а например: ФИО: Иванов Иван Иванович
Адрес: Казахстан
и так далее.......
надеюсь теперь понятнее будет
Неизвестный
20.08.2008, 16:03
общий
20.08.2008, 16:55
это ответ
Здравствуйте, Глуханьков Сергей Александрович!
Допустим, что поле 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);

И так далее..
По окончании операций, не забудьте закрыть файл!
Close[u]File[/u](f);

Best regards!
Неизвестный
20.08.2008, 16:16
общий
SHERRY сказал всё, однако есть небольшая поправочка - вместо Close(F); правильнее использовать CloseFile(F);
Неизвестный
20.08.2008, 16:24
общий
Troyan
Оно будет работать в обоих вариантах
Неизвестный
21.08.2008, 08:16
общий
Спасибо большое Вам уважаемые эксперты
Мдя, мне ещё учиться и учиться
Форма ответа