3. Справка

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm3 = class(TForm)

OK: TButton;

Memo1: TMemo;

procedure OKClick(Sender: TObject);

procedure Memo1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.OKClick(Sender: TObject);

begin

close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form3.ShowModal;

end;

procedure TForm3.Memo1Change(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('spravka.txt');

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('spravka.txt');

end;

end.

5 Удаление строки

procedure TForm1.N5Click(Sender: TObject);

begin

StringGrid1.RowCount:=n;

j:=StringGrid1.Row;

if n>1 then

begin

for i:= j-1 to n do

begin

a[i]:=a[i+1];

end;

n:=n-1;

end

else

begin

stringgrid1.cells[0,i+1]:=inttostr(i+1);

stringgrid1.cells[1,i+1]:=a[i].data;

stringgrid1.cells[2,i+1]:=a[i].familiya;

stringgrid1.cells[3,i+1]:=a[i].otdel;

stringgrid1.cells[4,i+1]:=IntToStr(a[i].kolvoStr);

stringgrid1.cells[5,i+1]:=IntToStr(a[i].kolvoCopy);

stringgrid1.cells[6,i+1]:=FloatToStr(a[i].price);

stringgrid1.cells[7,i+1]:=IntToStr(a[i].nadbavka);

stringgrid1.cells[8,i+1]:=IntToStr(a[i].itogo);

end;