Составить программку, включающую меню из 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
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
Саша Легостева
Спасибо громадное!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов