Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать колличество записей в DBGrid? [XP]


Страницы:   1 2 3

Neket ©   (2009-07-03 10:59:00) 

Собственно САБЖ...


Dennis I. Komarov   (2009-07-03 16:27:00) [1]


> А не модальной ли часом?

Я про Форм5...


Dennis I. Komarov   (2009-07-03 13:43:00) [2]


> Отвечаю сначало на > with form5 do - Я делаю это все из
> другой формы. Как тогда правельно?

А не модальной ли часом?


Ega23   (2009-07-03 13:25:00) [3]

Ну и, собственно, самое главное: такая "фича" не должна делаться автоматически.


Dennis I. Komarov   (2009-07-03 13:20:00) [4]


> тогда подбирать для другого ширфта значения

Ну если ты продашь (отдашь и т.п.) некой тете Дусе, не думаешь же что она будет подбирать и тем более компилить заного. А если на одном компе работают разные люди с разными настройками среды? .........


> второе протестированое на 26746 записей и 8 столбцов работает
> неощутимо по времени.

А теперь посмотри как пошагово проходит процесс и как это можно улучшить


> И я ещё раз говорю если вам мой вариант ненравиться тогда
> я с удовольствием выслушаю ваш вариант.

А вот этого не надо... Программа нужна тебе а не кому-либо, поэтому писать тебе, а нам подсказывать...


Neket   (2009-07-03 13:11:00) [5]


> Dennis I. Komarov ©   (03.07.09 12:51) [42]


тогда подбирать для другого ширфта значения


Neket   (2009-07-03 13:11:00) [6]

Отвечаю сначало на > with form5 do - Я делаю это все из другой формы. Как тогда правельно?

второе протестированое на 26746 записей и 8 столбцов работает неощутимо по времени.
И я ещё раз говорю если вам мой вариант ненравиться тогда я с удовольствием выслушаю ваш вариант.
P.S.
Вариант с фиксированной длиной столбцов непредлогать так как их число динамическое.


Dennis I. Komarov   (2009-07-03 13:02:00) [7]


> Циклы поменять местами. Вдруг у тебя НД пустой?

Ну что ты в самом деле, надо так:
Пусть в DataSet 10000 записей... ;)


Плохиш   (2009-07-03 13:01:00) [8]


> with form5 do
>

дальше читать не стал.


Dennis I. Komarov   (2009-07-03 13:00:00) [9]


> выдернуть ноги. По самые уши

погоди, не время еще :)


Ega23   (2009-07-03 12:53:00) [10]


> Вот так в итоге получилось так:


1. with form5 do - за такое выдернуть ноги. По самые уши.
2. Циклы поменять местами. Вдруг у тебя НД пустой?


Dennis I. Komarov   (2009-07-03 12:51:00) [11]

а с [36] что делать будем?


Neket   (2009-07-03 12:48:00) [12]

Вот так в итоге получилось так:

with form5 do
begin
For i:=0 to dbgrid1.FieldCount-1 do
begin
razm:=DBGrid1.Canvas.TextWidth(DBGrid1.Columns[i].FieldName);
DataSource1.dataset.DisableControls;
 while not DataSource1.dataset.eof do
 begin
 str:=DataSource1.DataSet.FieldByName(DBGrid1.Columns[i].FieldName).AsString;
 Razmtp:=DBGrid1.Canvas.TextWidth(str);
 if razmtp>=razm then razm:=razmtp;
 DataSource1.dataset.next;
 end;
DataSource1.dataset.First;
DataSource1.dataset.EnableControls;
DBGrid1.Columns[i].Width:=razm+6;
end;
end;


Dennis I. Komarov   (2009-07-03 12:42:00) [13]

что бы два раза ее не писать смотрим TDataSet.Eof + F1, даже с примером...
ЗЫ
 Это если тонкие намеки на for никчему не приводят...


Neket   (2009-07-03 12:30:00) [14]

Удалено модератором


Neket   (2009-07-03 12:28:00) [15]

Дану вас... Напишите свое виденье на эту проблему. Только умеете балы раставлять


Плохиш   (2009-07-03 12:28:00) [16]


> Neket   (03.07.09 12:07) [27]
>
> Я как сделаю напишу код...

Это, что угадайка "расставь запятые"?

Только сюда глюкокодов не надо, тем более по работе с акцессом через бде.


Dennis I. Komarov   (2009-07-03 12:28:00) [17]

А если у меня плохо со зрением и я 8-ку не вижу, и для этого у меня все крупнее, как быть?


Neket   (2009-07-03 12:26:00) [18]

6-ка для 8-го шришта


Neket   (2009-07-03 12:26:00) [19]

6-ка для 8-го шришта


Dennis I. Komarov   (2009-07-03 12:26:00) [20]


> Ega23 ©   (03.07.09 11:49) [21]
>
> > Сейчас выясниться что все это надо для for i....
>
>
> :)))))))))
> 5 баллов!!!!

А это на сколько?


Страницы:   1 2 3

Наверх

Титульная страница Поиск, карта сайта Написать письмо