unit1

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, Grids, Unit3, Unit2,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Add: TButton;
    INFO: TButton;
    Del: TButton;
    Edit1: TEdit;
    NEd: TEdit;
    MEd: TEdit;
    Razmer: TButton;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    Open: TMenuItem;
    Save: TMenuItem;
    OpD: TOpenDialog;
    Grid: TStringGrid;
    Grid1: TStringGrid;
    SvD: TSaveDialog;
    procedure AddClick(Sender: TObject);
    procedure DelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure INFOClick(Sender: TObject);
    procedure OpenClick(Sender: TObject);
    procedure RazmerClick(Sender: TObject);
    procedure SaveClick(Sender: TObject);
  private

  public
    fname:string[50];
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.OpenClick(Sender: TObject);
var tmp: zap;
    f:tfile;
    i,k:integer;
begin
  i:=1;
  if opd.Execute and fileexists(opd.FileName) then
  begin
    fname:=opd.FileName;
    assignfile(f,fname);
    reset(f);
    grid.clean;
    while not eof(f) do
    begin
     read(f,tmp);
     grid.RowCount:=i+1;
     grid.cells[1,i]:=inttostr(tmp.nom);
     grid.cells[2,i]:=tmp.ost;
     grid.cells[3,i]:=inttostr(tmp.mest);
     inc(i);
    end;
  end;
  grid.cells[1,0]:='Nomer';
  grid.cells[2,0]:='Ostanovki';
  grid.cells[3,0]:='Mesta';
  closefile(f);
end;

procedure TForm1.razmerClick(Sender: TObject);
var k: integer;
begin
 if trystrtoint(edit1.text,k) then
 grid.rowcount:=k+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.INFOClick(Sender: TObject);
var tmp,str,ll:string;
    i,j,n,k: integer;
begin
  if TryStrToInt(NEd.Text,k) then
  n:=k;
  for i:=1 to grid.RowCount-1 do
  begin
  tmp:=grid.Cells[2,i];
  obrab(tmp);
   while length(tmp)<>0 do
   begin
     j:=pos(' ',tmp);
     str:=copy(tmp,1,j-1);
     delete(tmp,1,j);
     TryStrToInt(grid.Cells[3,i],k);
     ll:=med.text;
     if (ll=str) and (n<k) then
     begin
       grid1.Cells[1,i]:=grid.Cells[1,i];
       grid1.Cells[2,i]:=grid.Cells[2,i];
       grid1.Cells[3,i]:=grid.Cells[3,i];
     end;
   end;
  end;
end;

procedure TForm1.AddClick(Sender: TObject);
begin

end;

procedure TForm1.DelClick(Sender: TObject);
var n:integer;
begin
  if Opd.execute and fileexists(opd.filename) then
      DeleteZap(opd.filename);
end;


procedure TForm1.SaveClick(Sender: TObject);
var f:tfile;
    tmp:zap;
    i,k:integer;
begin
  if svd.Execute then
  begin
    assignfile(f,svd.FileName);
    rewrite(f);
    for i:=1 to grid.RowCount-1 do
    begin
     if trystrtoint(grid.Cells[1,i],k) then
     tmp.nom:=k;
     tmp.ost:=grid.Cells[2,i];
     if trystrtoint(grid.Cells[3,i],k) then
     tmp.mest:=k;
     write(f,tmp);
    end;
    closefile(f);
  end;
end;

end.