Составить программку, включающую меню из 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:


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

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

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

Войти на сайт