TMS AdvStringGrid

← →
AnCo (2006-09-23 22:42) [0]

Здравствуйте!
Задача.
Выводить в таблицу строки и сортировать таблицу кликом мыши по колонкам и программно.

Кидаю на форму Tadvstringgrid1, и три кнопки.
Нажимаю первую кнопку, щелчек по колонке (1), нажимаю вторую кнопку, нажимаю третью и вылетает ошибка.
В чем может быть проблема?

procedure TForm1.FormCreate(Sender: TObject);
begin
with advstringgrid1 do begin
RowCount:=2;
sortsettings.Show:=true;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=1 to 5 do begin
advstringgrid1.Cells[1,i]:=inttostr(i);
advstringgrid1.RowCount:=advstringgrid1.RowCount+1;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
advstringgrid1.RowCount:=2;
for i:=1 to 6 do begin
advstringgrid1.Cells[1,i]:=inttostr(i);
advstringgrid1.RowCount:=advstringgrid1.RowCount+1;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
advstringgrid1.SortByColumn(1);
end;

← →
KilkennyCat © (2006-09-23 22:48) [1]

на сколько я помню, на сайте http://www.tmssoftware.com по работе с этим компонентом есть просто на все случаи жизни примеры.

← →
AnCo (2006-09-27 21:40) [2]

Так вот Вам простейший код. Что тут не так. Ошибка компонента скорее всего: запоминает какую то переменную при сортировке по колонке и не обновляет ее при программной сортировке с помощью процедуры.

TMS AdvStringGrid Найти похожие ветки