Вопросы по Delphi (все версии) - часть 4 - [7] :: Прикладное программирование

зы
Мне почему-то наш городок вспомнился. Там толстенький с натурально пропитой рожицей сидит за столом и на бутыльку вотки смотрит. Чёрненький просыпается и спрашиает: ты ещё не ушол? Тот ему типа - нет. -Так ты же за водкой обещал сбегать. Тот ему - так я и побегу за ней. Но вот я уже два часа сижу, смотрю на неё. А она не шелохнётся. Вот когда она побежит, тогда я её и догоню... *(

Добавлено:
До сих пор печальная история с моим мозгом. Я уже узнал что Eof так работает для резвых "прохрамеров" которые пишут while not Eof. Но почему DBActns тогда привязались к FEof? Почему то после следующего кода во всей программе стало адекватно.

Код:

procedure TBaseForm.actlBaseUpdate(Action: TBasicAction;
var Handled: Boolean);
var
I, RecCount, RecNo: Integer;
A: TDataSetAction;
begin
for I := 0 to actlBase.ActionCount - 1 do
if actlBase.Actions[I] is TDataSetAction then
begin
A := TDataSetAction(actlBase.Actions[I]);
if not Assigned(A.DataSource) then continue;
if not Assigned(A.DataSource.DataSet) then continue;
RecCount := A.DataSource.DataSet.RecordCount;
RecNo := A.DataSource.DataSet.RecNo;
if A is TDataSetFirst then
A.Enabled := (RecCount > 1) and (RecNo > 1)
else if A is TDataSetPrior then
A.Enabled := (RecCount > 1) and (RecNo > 1)
else if A is TDataSetNext then
A.Enabled := (RecCount > 1) and (RecNo < RecCount)
else if A is TDataSetLast then
A.Enabled := (RecCount > 1) and (RecNo < RecCount)
end;
end;

Аднако меньче пить надо, и зачем я это ИА пишу? ((

Модерирует : ShIvADeSt
ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101