база данных. добавление и удаление данных

[midiss]

написать удаление выделенной строки, т.е. вводиться например фамилия и найдя ее удаляются все ее данные
есть начало, а как дальше?

unit Unit1;

interface

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

type
   student=record
       fam, name: String;
       numb: integer;
       a: array [1..3] of integer;
       end;


  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button2: TButton;
    Edit7: TEdit;
    Button3: TButton;
    Button4: TButton;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit7DblClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   g1, g2, g3, g4, g5, g6: array [1..10] of student;
  i, z:integer;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid1.Cells[0,0]:='¹ ';
stringgrid1.Cells[1,0]:='fam ';
stringgrid1.Cells[2,0]:='name ';
stringgrid1.Cells[3,0]:='numb ';
stringgrid1.Cells[4,0]:='îöåíêà 1 ';
stringgrid1.Cells[5,0]:='îöåíêà 2 ';
stringgrid1.Cells[6,0]:='îöåíêà 3 ';
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
stringgrid1.Cells[0,0]:='¹ ';
stringgrid1.Cells[1,0]:='fam ';
stringgrid1.Cells[2,0]:='name ';
stringgrid1.Cells[3,0]:='numb ';
stringgrid1.Cells[4,0]:='îöåíêà 1 ';
stringgrid1.Cells[5,0]:='îöåíêà 2 ';
stringgrid1.Cells[6,0]:='îöåíêà 3 ';
   i:=0;
   repeat
     i:=i+1;
     until g1[i].fam='';
     if i=11 then showmessage('ãðóïïà çàïîëíåíà, ñíà÷àëî óäàëèòå ñòóäåíòà')
        else
        begin
        stringgrid1.Cells[0,i]:=inttostr(i);
          g1[i].fam:=edit1.text;
          stringgrid1.Cells[1,i]:=g1[i].fam;
          g2[i].name:=edit2.text;
          stringgrid1.cells[2,i]:=g2[i].name;
          g3[i].numb:=strtoint(edit3.text);
          stringgrid1.Cells[3,i]:=inttostr(g3[i].numb);
          g4[i].a[1]:=strtoint(edit4.text);
          stringgrid1.Cells[4,i]:=inttostr(g4[i].a[1]);
          g5[i].a[2]:=strtoint(edit5.text);
          stringgrid1.Cells[5,i]:=inttostr(g5[i].a[2]);
          g6[i].a[3]:=strtoint(edit6.text);
          stringgrid1.Cells[6,i]:=inttostr(g6[i].a[3]);

        end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
end;

end.

[Slym]

Базой данных даже не пахнет...
а если и пахнет то крайне денормализованной

[SovereignSun]

Ну и писанина, через что база подключена? DbGrid есть? База на каком языке?

[alexiz]

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

Базой данных даже не пахнет...
а если и пахнет то крайне денормализованной

Похоже, все сводится к удалению строки из StringGrid.