Запись 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 - это ваш файл(может создаваться автоматически
Объяснение:
#include <algorithm>
#include <array>
#include <iostream>
int main()
{
std::array<int, 6> arr{ 13, 90, 99, 5, 40, 80 };
std::cout « "Enter a value to search for and replace with: ";
int search{};
int replace{};
std::cin » search » replace;
// Проверка пользовательского ввода должна быть здесь
// std::find() возвращает итератор, указывающий на найденный элемент (или на конец контейнера).
// Мы сохраним его в переменной, используя автоматический вывод типа итератора
auto found{ std::find(arr.begin(), arr.end(), search) };
// Алгоритмы, которые не нашли то, что искали, возвращают итератор, указывающий на конец контейнера.
// Мы можем получить доступ к этому итератору, используя метод end()
if (found == arr.end())
{
std::cout « "Could not find " « search « '\n';
}
else
{
// Перезаписываем найденный элемент
*found = replace;
}
for (int i : arr)
{
std::cout « i « ' ';
}
std::cout « '\n';
return 0;
}
