{ Запись 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 четвертая'); writeln(outfile, 'Пятая строка'); 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
#include <iostream> using namespace std; void main () { int a,b; cin>>a>>b; int temp; if (a>b) {temp = b; b=a; a= temp; } cout<< "ves' diapozon"<<endl; for (int i = a; i<=b; i++) {
cout<< i<<" "; } cout<<endl; cout<< "chetnye"<<endl; for (int i = a; i<=b; i++) { if ( (i%2)==0) cout<< i; } cout<<endl; cout<< "ne chetnye"<<endl; for (int i = a; i<=b; i++) { if ( (i % 2) !=0) cout<< i<<" "; } cout<<endl; cout<< "krany 7"<<endl; for (int i = a; i<=b; i++) { if( (i%7)==0) cout<< i; } system("pause"); return 0; }
с отступом (вариант 1)
Объяснение:
остальные вообще стебные какие-то))