Составить программку, включающую меню из 4 пт: 1.Сделать текстовый файл из

Составить программу, включающую меню из 4 пт: 1.Сделать текстовый файл из 5 строк-предложений. 2.Вывести содержимое файла на экран. 3.Вывести на экран количество слов, содержащих цифры. 4.Выход. 1-ые три пт меню реализовать в процедурах, которые поместить в модуль.
На делфи.

Задать свой вопрос
Михайлусов Макс
И на чем это писать?
Витька Захарькин
На делфи.
Мирослава
Как можно в словах подсчитать числа?
1 ответ
Запись 5 строк в файл 
procedure TForm1.Button1Click(Sender: TObject);
var outfile: TextFile;
begin
AssignFile(outfile, 'outfile.txt')
;Rewrite(outfile);
writeln(outfile, 'Привет из Delphi');
writeln(outfile, 'Моя программка работает, и выводит '
+'данный текст, чтобы обосновать это...');
writeln(outfile, '3. Треться строка');
writeln(outfile, '234 4-ая');
writeln(outfile, '5-ая строчка');
CloseFile(outfile);
end;

// вывод на экран поточнее в мемо либо лист бокс

procedure TForm1.Button2Click(Sender: TObject);
begin 
// выводим в мемо
 Memo1.Lines.LoadFromFile('outfile.txt');
// или в лист бокс как для тебя лучше
 ListBox1.Items.LoadFromFile('outfile.txt');
end;

// кнопка для закрытия 

procedure TForm1.Button3Click(Sender: TObject);
begin 
Close;
end;

// событие onClose

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  if MessageDlg('Вы точно желайте выйти?',     mtConfirmation, mbOkCancel,0)= mrOk then begin     
CloseAction:= caFree;   
     end
  else begin
     CloseAction:= caNone;
  end;
end;

Тут!
outfile.txt - это ваш файл(может создаваться автоматически

ЧТО Необходимо СДЕЛАТЬ?
1. Закинуть на форму 3 кнопки
2. Закинуть ListBox либо Memo
3. В событиях формы в инспекторе объектов (Инспетор Объектов/ Действия/ onClose) в onClose выбрать процедуру FormClose
Саша Легостева
Спасибо громадное!
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы
задание экономиоти Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких

Экономика.

Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности

Экономика.

там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо

Русский язык.

Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.

Разные вопросы.

Сочинение на тему "Русский язык не сможет умереть!"

Математика.

Приветствую! Меня зовут Станислав, я представляю компанию under.site. Хотел бы предложить интересное решение

Разные вопросы.

Масса трёх одинаковых пакетов чая 180г чему равна масса

Математика.

Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл

Химия.

Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы

Русский язык.

Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника

Геометрия.

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт