unit prog;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ToolWin, Vcl.ActnMan,
  Vcl.ActnCtrls, Vcl.ActnMenus, Vcl.StdCtrls, Vcl.Grids;

type
  TForm3 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Editing: TMenuItem;
    Help: TMenuItem;
    About: TMenuItem;
    OpenT: TMenuItem;
    OpenAsT: TMenuItem;
    SaveT: TMenuItem;
    SaveAsT: TMenuItem;
    out: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Table: TStringGrid;
    EditOn: TMenuItem;
    EditOff: TMenuItem;
    procedure AboutClick(Sender: TObject);
    procedure outClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OpenTClick(Sender: TObject);
    procedure EditOnClick(Sender: TObject);
    procedure EditOffClick(Sender: TObject);
    procedure HelpClick(Sender: TObject);
    procedure SaveTClick(Sender: TObject);
    procedure SaveAsTClick(Sender: TObject);
    procedure OpenAsTClick(Sender: TObject);
    procedure TableSetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: string);
    procedure TableSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

uses Help, ABOUT1;

procedure TForm3.FormCreate(Sender: TObject);
begin
Table.ColWidths[0] := 40;
Table.Cells[0, 0] := '№';
Table.Cells[1, 0] := 'номер тура';
Table.Cells[2, 0] := 'страна';
Table.Cells[3, 0] := 'количество дней';
Table.Cells[4, 0] := 'фамилия туриста';
Table.Cells[5, 0] := 'количество взрослых';
Table.Cells[6, 0] := 'количество детей';
Table.Cells[7, 0] := 'стоимость путевки на одного взрослого человека';
Table.Cells[8, 0] := 'сумма к оплате';

end;

procedure TForm3.EditOnClick(Sender: TObject);
begin
self.Table.Options := self.Table.Options + [goEditing];
end;


procedure TForm3.EditOffClick(Sender: TObject);
begin
self.Table.Options := self.Table.Options - [goEditing];
end;

procedure TForm3.HelpClick(Sender: TObject);
begin
Form1.Show;
end;

procedure TForm3.AboutClick(Sender: TObject);
begin
AboutBox.Show;
end;

procedure TForm3.OpenAsTClick(Sender: TObject);
var L: TStringList;
      i: integer;
begin
 if not OpenDialog1.Execute then Exit;
 L := TStringList.Create;
 L.LoadFromFile(OpenDialog1.FileName);
 for i := 0 to L.Count - 1 do
  Table.Rows[i].CommaText := L.Strings[i];
 L.Free;
end;

procedure TForm3.OpenTClick(Sender: TObject);
var List: TStringList;
  i, j: Integer;
begin
Table.Visible:=True;
List:=TStringList.Create;
List.LoadFromFile('таблица.txt');
with Table do
  for i:=0 to RowCount-1 do
  for j:=0 to  ColCount-1 do
    Cells[j, i]:=List[i*ColCount+j];
end;

procedure TForm3.SaveAsTClick(Sender: TObject);
var L: TStringList;
      i: integer;
begin
 if not SaveDialog1.Execute then Exit;
 L := TStringList.Create;
 for i := 0 to Table.RowCount - 1 do
  L.Add(Table.Rows[i].CommaText);
 L.SaveToFile(SaveDialog1.FileName);
 L.Free;
end;

procedure TForm3.SaveTClick(Sender: TObject);
var List: TStringList;
  i, j: Integer;
begin
List:=TStringList.Create;
with Table do
  for i:=0 to RowCount-1 do
  for j:=0 to  ColCount-1 do
    List.Add(Cells[j, i]);
List.SaveToFile('таблица.txt');
end;

procedure TForm3.TableSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
if (ARow=Table.RowCount-1)
   or (ACol=Table.ColCount-1)
          then CanSelect:=False;
end;

procedure TForm3.TableSetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
var
b, n, c: integer; { b  - значение строки редактирования}
j: byte;  { j - параметр цикла для текущего номера столбца}
nRow, adult, child: real;
begin
with Table do
  if (ARow<>RowCount-1) and (ACol<>ColCount-1) then
   begin
    if value <> ' ' then {если введенное значение не пусто}
     begin
      val(Value, b, c); {переводим в число}
      if (c<>0) then
      Cells[ACol, ARow]:=' ';
      end;
      nRow:=0; {обнуляет сумму оценок в строке}
      for j:=5 to 7 do
      if Cells[j,ARow]<>'' then
     {если ячейка таблицы с координатами j, ARow не пустая}
      begin
       adult:=StrToFloat (Table.Cells [5,1])+StrToFloat (Table.Cells [7,1]);
       child:=StrToFloat (Table.Cells [6,1])+ StrToFloat (Table.Cells [7,1])*0.2;
       nRow:=nRow+adult+child;
      end;
     Table.Cells[8,ARow]:= nRow;
   end;
end;

procedure TForm3.outClick(Sender: TObject);
begin
close;
end;

end.

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
  var
    a,b,c,d,e,f:integer;
  begin
    if(ARow>0)and(ARow<Form1.StringGrid1.RowCount)and
      (ACol>0)and(ACol<Form1.StringGrid1.ColCount)then
      if Value<>''then
        begin
          Form1.StringGrid1.Cells[ACol,ARow]:=Value;
          if tryStrToInt(Form1.StringGrid1.Cells[3,ARow],a)then
            begin
              if tryStrToInt(Form1.StringGrid1.Cells[4,ARow],b)then
                begin
                  if tryStrToInt(Form1.StringGrid1.Cells[5,ARow],c)then
                    begin
                      if tryStrToInt(Form1.StringGrid1.Cells[6,ARow],d)then
                        begin
                          if tryStrToInt(Form1.StringGrid1.Cells[7,ARow],e)then
                            begin
                              Form1.StringGrid1.Cells[8,ARow]:=IntToStr(a*(b*c+d*e));
                            end
                            else ShowMessage('7 '+IntToStr(ARow));
                        end
                        else ShowMessage('6 '+IntToStr(ARow));
                    end
                    else ShowMessage('5 '+IntToStr(ARow));
                end
                else ShowMessage('4 '+IntToStr(ARow));
            end
            else ShowMessage('3 '+IntToStr(ARow));
        end;
   end;

procedure TForm3.TableSetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
var
a,b,c :integer;
begin
with Table do
  if(ARow>0)and(ARow<Table.RowCount)and (ACol>0)and(ACol<Table.ColCount)then
  if value <> ' ' then
  Table.Cells[ACol,ARow]:=Value;
  if tryStrToInt(Table.Cells[5,ARow],a)then
    begin
    if tryStrToInt(Table.Cells[6,ARow],b)then
      begin
        if tryStrToInt(Table.Cells[7,ARow],c)then
          begin
          Table.Cells[8,ARow]:=FloatToStr((a*b)+((b*c)-0.2));
          end;
      end;
    end;
end;

if Value<>''then

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
  const Digit=['0', '1'..'9'];
begin
  if (not (Key in Digit)) then Key:=#0;
end;

procedure TForm3.TableSetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
var
a,b,c :integer;
begin
with Table do
  if(ARow>0)and(ARow<Table.RowCount)and (ACol>0)and(ACol<Table.ColCount)then
  if tryStrToInt(Table.Cells[5,ARow],a)then  // кол-во взрослых
    begin
    if tryStrToInt(Table.Cells[6,ARow],b)then  // кол-во детей
      begin
        if tryStrToInt(Table.Cells[7,ARow],c)then // стоимость
          begin
          Table.Cells[8,ARow]:=FloatToStr ((a*c)+((b*c) - 0.2));
          end;
      end;
    end;
  end;

Table.Cells[8,ARow]:=FloatToStr ((a*c)+((b*c) - 0.2));

Form1.StringGrid1.Cells[8,ARow]:=IntToStr(a*(b*c+d*e));