[KoLiN]

Как удалить строку в StringGrid ??

Просто проблема в 2 типах

Код:

type

  TMotor=record
    name:String;
    price:integer;
    tuning: Set of (CD, Alarm, Condition);
    end;

Сделал такую процедуру

Код:

procedure Del_element(StringGrid1:TStringGrid);
var
  x,y : Integer;
begin

  x := StringGrid1.Selection.Left;
  y := StringGrid1.Selection.Top;

  StringGrid1.Cells[1, y] := '';
  MotList[y].name := '';

  StringGrid1.Cells[2, y] := '';

  StringGrid1.Cells[3, y] := '';
end;

Строка очищается. Но сделано так, что при нажатии на строчку данные из строк передаются в едит.

Эта строка очищает первый столбик (0-й столбик цифры от 0 до 10)

Код:

  StringGrid1.Cells[1, y] := '';
  MotList[y].name := '';

Как сделать для 2 и 3 столбиков. Чтоб информация удалялась из массива. А не просто из строчек StringGrid ??

Помогите! Я ламо ((

[Thrasher]

Код:

for I:=0 to StringGrig.RowCount-1 do
  for J:=0 to StringFrid.ColCount-1 do
    StringGrid.Cell[J,I]:='';