Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 18

Раздел: Delphi » Работа с файловой системой
/ вопрос открыт /

Уважаемые, эксперты.Помогите пожалуйста!
Что нужно добавить, чтобы программа записывала значения 'a' и 'x1' в текстовый файл после какого-то текста?

Приложение:
  1. procedure TForm1.N11Click(Sender: TObject);
  2. Var H:TextFile;
  3. a:integer;
  4. x1:real;
  5. begin
  6. AssignFile(H,'History.txt');
  7. append(H);
  8.  
  9.  
  10. CloseFile(H);
  11. end;


Свиридов Евгений Геннадьевич Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Свиридов Евгений Геннадьевич (статус: Посетитель)
Вопрос отправлен: 24 мая 2006, 13:00
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Вадим К

Writeln(H,'Какой-то текст',a);
Writeln(H,'Какой-то текст',x1);
или
Writeln(H,a);
процедура Writeln - это так называемая "магическая", тоесть не неё не распространяются много правил языка. Компилятор зает как правильно обработать её. В данном случае, количество и типы параметров могут быть разные.

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 24 мая 2006, 13:50

Ответ #2. Отвечает эксперт: ANBsoft

Процедура writeln допускает передачу нескольких выводимых параметров через ",":
Writeln(H,'Например ',a);
В некоторых случаях удобнее самому создавать выводимую строку:
Writeln(H,'Например '+IntToStr(a));

Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 25 мая 2006, 09:51


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:51
Выполнено за 0.02 сек.