Скачать: CL | DM;

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c