Работа с файлами - Delphi - Ответ 2454680

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    MemoBase: TMemo;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    MemoResult: TMemo;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Button4: TButton;
    procedure ClickSave(Sender: TObject);
    procedure ClickOpen(Sender: TObject);
 
    procedure ClickSaveResult(Sender: TObject);
    procedure ClickExit(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  max,min,sred:integer;
  a:array[1..20] of integer;
  i:integer;
implementation
 
{$R *.dfm}
 
{---------------------------------------------------}
procedure TForm1.N8Click(Sender: TObject);
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(200)-100;
MemoBase.Lines.add(IntToStr(a[i]));
end;
end;
 
procedure TForm1.N9Click(Sender: TObject);
var
  otric:integer;
begin
  otric:=0;
max:=a[i];
for i:=0 to 20 do
if a[i]<0 then
begin
max:=a[i];
Inc(otric);
end;
  memoResult.Lines.Add('Отрицательные = '+IntToStr(otric));
end;
 
procedure TForm1.N10Click(Sender: TObject);
var
  pol:integer;
begin
  pol:=0;
max:=a[i];
for i:=0 to 20 do
if a[i]>0 then
begin
max:=a[i];
Inc(pol);
end;
  memoResult.Lines.Add('Положительных = '+IntToStr(pol));
end;
 
procedure TForm1.N11Click(Sender: TObject);
begin
sred:=0;
for i:=0 to 20 do
begin
sred:=sred+a[i];
end;
memoResult.Lines.Add('Сумма всех чисел = '+inttostr(sred));
end;
 
{----------------------------------------------}
procedure TForm1.ClickOpen(Sender: TObject);
begin
OpenDialog1.Execute;
memoBase.Lines.loadfromfile(opendialog1.FileName);
end;
 
procedure TForm1.ClickSave(Sender: TObject);
begin
SaveDialog1.Execute;
memoBase.Lines.SaveToFile(savedialog1.FileName);
end;
 
procedure TForm1.ClickSaveResult(Sender: TObject);
begin
SaveDialog1.Execute;
memoResult.Lines.SaveToFile(savedialog1.FileName);
end;
 
{--------------------------------------------------}
procedure TForm1.ClickExit(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var
n:Integer; st:string;
begin
for i:=0 to 20 do
begin
MemoResult.Lines.Add(inttostr(a[i])+',');
end;
end;
 
end.