Доброго времени суток! У меня имеется база данных содержащая название музеи и кол-во посетителей. Я хочу найти где больше всего посетителей и вывести название этого музея в Edit. Делаю это так:
Код:
max:=0;
AdoDataset1.First;
While AdoDataSet1.Eof<>true do begin
If AdoDataSet1Posit.AsInteger>max then begin
max:=AdoDataSet1Posit.AsIneger;
Edit1.Text:=AdoDataSet1Nazv.AsString;
AdoDataSet1.Next; end; end;
lmikle: Пользукмся тегами!!!
Но программа зависает на второй строке в таблице. А если убрать строчку
max:=AdoDataSet1Posit.AsIneger;, то программа просто просматривает все строчки и выводит название последнего музея, что довольно логично=) Помогите, плиз, понять в чем загвостка!