procedure Delete

[REztor]

Помогите написать процедуру удаляющую строку в матрице

procedure TForm1.agridDblClick(Sender: TObject);
begin
my:=my.delete(agrid.row)
end;

[Stilet]

Что за матрица? Как описана?

[REztor]

Сообщение от Stilet

Что за матрица? Как описана?

var
  Form1: TForm1;my,his:matr;n,m:integer;flag:boolean;

implementation

{$R *.dfm}

procedure TForm1.sbScroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  agrid.ColCount:=sb.position;
  edit1.Text:=inttostr(sb.Position);
  m:=sb.position;
  format(agrid)
end;

 procedure TForm1.format(g:TStringGrid);
 begin with g do begin
 width:=colcount*(defaultcolwidth+1)+4;
 height:=rowcount*(defaultrowheight+1)+4
   end;
   end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  format(agrid);
  randomize ;
  flag:=false;
  my:=matr.create;
  n:=5;m:=5
end;

procedure TForm1.N2Click(Sender: TObject);
begin
 halt
end;

procedure TForm1.N4Click(Sender: TObject);
begin
 my.make(n,m);
 my.show(agrid);
 flag:=true
end;

procedure TForm1.agridKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=27 then
   if his<>nil then
   his.show(agrid)
   else showmessage('Объект еще не создан');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin  flag:=not flag;
 if flag=false then
 begin showmessage('Матрица разблокирована'+#13+
 'Можно начинать ручной ввод');
 agrid.Options:=agrid.Options+[GoEditing];
  button1.Caption:='Block' end;
 begin  flag:=flag;
 if flag=true then
 begin showmessage('Матрица заблокирована'+#13+
 'Нельзя начинать ручной ввод');
 agrid.Options:=agrid.Options-[GoEditing];
  button1.Caption:='UnBlock' end;
 end;
 end;

procedure TForm1.sb2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
 agrid.RowCount:=sb2.position;
  edit2.Text:=inttostr(sb2.Position);
  n:=sb2.position;
  format(agrid)
end;

procedure TForm1.agridDblClick(Sender: TObject);
begin
 my:=my.delete(agrid.row)
end;

end.

From Stilet: Тегом # оформляй код.

[Stilet]

Поиск уже не в моде?
http://programmersforum.ru/showthrea...Row#post126267

[REztor]

Сообщение от Stilet

Поиск уже не в моде?
http://programmersforum.ru/showthrea...Row#post126267

Спасибо большое

[REztor]

Stilet а функцию можешь помочь написать удаляющую строку в матрице?

[REztor]

nterface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Menus;

type arr=array of integer;

matr=class
    a:array of arr;n,m:integer;
    constructor create;overload;
    constructor create(x:matr);overload;
    procedure make(k1,k2:integer);
    procedure show(g:TStringGrid);
    function delete(k:integer):matr;
  end;

implementation

   constructor matr.create;
    begin a:=nil;n:=0;m:=0 end;

    constructor matr.create(x:matr);
  var i,j:integer;
  begin   end;

    procedure matr.make(k1,k2:integer);
 var i,j:integer;
begin
  n:=k1;m:=k2;
setlength(a,n,m);
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  a[i][j]:=random(100);
  end;


    procedure matr.show(g:TStringGrid);
  var i,j:integer;
 begin
 for i:=0 to n-1 do
 for j:=0 to m-1 do
 g.cells[j,i]:=inttostr(a[i][j]);
 end;

  function matr.delete(k:integer):matr;
  begin   showmessage('Процедура еще не готова');
    result:=self
    end;


end.