тоже да не совсем, тут завязка на TStringList.
вот что то на ваял
Код:
procedure TmainF.FillGrid(Lst: TStringList);
begin
DrawGrid1.RowCount := L.Count+1;
DrawGrid1.ColCount := 2;
DrawGrid1.Refresh;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
L: TStringList;
begin
if (DrawGrid1.RowCount <= 2) then // оставляем строку №1, чтобы не потерять Фиксированной(строка № 0)
L.Clear ;// очищаем строку №1
L.Delete(DrawGrid1.Row - 1);
FillGrid(L);
end;
вроде все правильно, но по почему то выдает ошибку
---------------------------
Project1
---------------------------
List index out of bounds (0)
---------------------------
ОК
---------------------------
помогите пожалуйста с разрешением этой проблемы