Показать сообщение отдельно
  #7  
Старый 12.09.2012, 14:48
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от kerby666
Это понятно, что последнее останется. Но первая запись и не попадала никуда.
Она попадала в переменную X, просто потом эта переменная затиралась содержимым второй записи. (У тебя 2 записи, поэтому содержимое цикла while..end срабатывает дважды)

Забыл ещё дописать :

А чтобы переменная X не затиралась, а например суммировалась, нужно делать так:
Код:
begin
  x := 0;
  Table1.First;
  while not Table1.Eof do
  begin
    x := x + Table1.FieldByName('Price').AsCurrency;
    Table1.Next;
  end;
end;
Ответить с цитированием