StringGrid. Опции

[Tan]

Поискал по форуму, нашёл много информации по данному объекту, но всё же остались некоторые вопросы. В данном компоненте у меня есть 3 колонны (они не меняются). Перввый столбик номер элемента списка, второй - товар в магазине (тип стринг), 3й - цена товара типа integer. У меня есть процедура добавления товара в список, осталось реализовать её визуально с помощью данного компонента. Есть глобальная переменная (допустим N), которая отвечает за количество элементов в списке. При добавлении элемента она величивается, а при удалении сответственно уменьшается. С организацией данного цикла проблем не возникает :

for k := 1 to N do
StringGrid1.Cells[0,k] :=IntToStr(K);

Но изначально я установил количество рядов = 5, а если товара больше то скролл вниз не появляется (вроде инспектор просмотрел, ничего хорошего не вышло). Получается так что клетки по идее заполняются в цикле но увидеть их пользователь не может.

Сообщение отредактировано: Tan - 27.04.2007 20:29

[volvo]

procedure SGDeleteRow(SG:TStringGrid; RowToDelete:Integer);
var i: Integer;
begin
  with SG do begin
    if (RowToDelete>=0) and (RowToDelete<RowCount) then begin
      for i:=RowToDelete to RowCount-2 do Rows[i].Assign(Rows[i+1]);
      RowCount:= RowCount-1;
    end;
  end;
end;

© MBo

Вызывать, например, так:

...
  SGDeleteRow(StringGrid1, strtoint(Edit1.text));
...