12.09.2012, 13:39
|
 |
Специалист
|
|
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
|
|
Код:
Table1.First;
while not Table1.Eof do
begin
Table1.Edit;
x:=Table1.FieldByName('price').AsCurrency;
Tabel1.Next;
end; |