Файловый тип - Delphi - Ответ 6130234

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f:Textfile;
  m:array[1..20] of integer;
  i,j,min,c:integer;
  s:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button3.Enabled:=true;
  Button4.Enabled:=true;
  Button5.Enabled:=true;
  randomize;
 assignFile(f,'c:\17.txt');
 rewrite(f);
  writeln(f,'<< 17 лаба >>');
   for i:=1 to 20 do
 begin
  m[i]:=random(14)-7;
  writeln(f,m[i]:5);
 end;
 closefile(f);
 showmessage('<< Создан фаил и массив >>');
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  assignFile(f,'c:\17.txt');
 reset(f);
  while not eof(f) do begin
 readln(f,s);
 memo1.Lines.Add(s);
 end;
 closefile(f);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button3.Enabled:=false;
  Button4.Enabled:=false;
  Button5.Enabled:=false;
  memo1.Enabled:=false;
  memo2.Enabled:=false;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
 var
 q:TStringList;
 i:integer;
begin
Assignfile(f,'c:\17.2.txt');
rewrite(f);
writeln(f,'<< 17.2 лаба >>');
closefile(f);
q:=TStringList.Create;
if not fileexists('c:\17.2.txt') then
exit;
q.LoadFromFile('c:\17.2.txt');
for i:=0 to memo1.Lines.Count-1 do
q.Add(memo2.Lines[i]);
q.SaveToFile('c:\17.2.txt');
q.Free;
showmessage('<< Файл записан >>');
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
 close;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
c:=0;
  for i:=1 to 10 do
  min:=-1;
  for i:=1 to 20 do
  if(m[i]>0) then
  if(min<>-1)then
  begin
   if (m[i]<min) then min:=m[i];
   end 
    else min:=m[i];
    if(min<>-1) then else
    showmessage('<< Нету >>');
    memo2.Text:=memo2.Text+floattostr(min);
 
end;
 
end.