База Данных магазина

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Menus, StdCtrls, Math;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    MainMenu1: TMainMenu;
    MainFile: TMenuItem;
    Edit: TMenuItem;
    MainSort: TMenuItem;
    Add: TMenuItem;
    Save: TMenuItem;
    Delete: TMenuItem;
    NumberSort: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure AddClick(Sender: TObject);
    procedure DeleteClick(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure NumberSortClick(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
   k,s:TStringList;
   i:integer;
begin
   StringGrid1.Cells[0,0]:='Дата';
   StringGrid1.Cells[1,0]:='День недели';
   StringGrid1.Cells[2,0]:='Фамилия';
   StringGrid1.Cells[3,0]:='Выручка, руб.';
 
   s:=TStringList.Create;
   k:=TStringList.Create;
   k.LoadFromFile('output.txt');
   s.Delimiter:=' ';
   StringGrid1.RowCount:=k.Count;
   for i:=1 to k.Count-1 do
      begin
         s.DelimitedText:=k[i];
         StringGrid1.Rows[i].DelimitedText:=s.DelimitedText;
      end;
end;
 
procedure TForm1.AddClick(Sender: TObject);
begin
   StringGrid1.RowCount:=StringGrid1.RowCount+1;
end;
 
procedure TForm1.DeleteClick(Sender: TObject);
var
   i,j: Integer;
begin
   j:=StringGrid1.Row;
   StringGrid1.Rows[j].Clear;
   for i:=j to StringGrid1.RowCount-2 do
      StringGrid1.Rows[i].Assign(StringGrid1.Rows[i+1]);
      StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
 
procedure TForm1.SaveClick(Sender: TObject);
Var
  f: textfile;
  i,j: integer;
begin
   Assignfile(f, 'output.txt' );
   rewrite(f);
 
  for i := 0 to stringgrid1.rowcount  do
    for j := 0 to stringgrid1.colcount  do
      begin
         write(F, stringgrid1.cells[j, i],' ');
         if j = 4 then writeln(f, ' ');
      end;
  closefile(f);
end;
 
 
 
procedure TForm1.AlphabetSortClick(Sender: TObject);
 var
    i: integer;
    f: boolean;
begin
   repeat
     Application.ProcessMessages();
      f:=false;
      for i:= 1 to StringGrid1.RowCount-1 do
       if StringGrid1.Cells[1, i] > StringGrid1.Cells[1, i+1] then
          begin
             f:=true;
             StringGrid1.Rows[StringGrid1.RowCount]:=StringGrid1.Rows[i];
             StringGrid1.Rows[i]:=StringGrid1.Rows[i+1];
             StringGrid1.Rows[i+1]:=StringGrid1.Rows[StringGrid1.RowCount];
          end;
   until not f;
   StringGrid1.Rows[StringGrid1.RowCount].Clear;
 
end;
 
end.