| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ерунда какая-то с числами [D6]
11111 © (2006-03-09 16:21:00)В таблице Oracle забиты числа
.1
.02
.01
.002
.001
.0002
.0001
.00003
Этими числами заполняется listBox в Delphi. Первые 7 чисел нормально заполняются, а последняя всегда почему то превращается в 0.
Столбец в который заполняются числа создан как number(20,12)
Reindeer Moss Eater (2006-03-09 17:03:00) [1]Либо преобразовывать прямо на сервере:
'select to_char(Ugol_Rash,'99.99999') from Ugol_Rash'
Reindeer Moss Eater (2006-03-09 16:40:00) [2]Ну и при чем здесь числа и Оракл?
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := Format('%18.5f',[0.00003]);
end;
11111 (2006-03-09 16:34:00) [3]Код заполнения ListBox
Выборка значений:
ADOQuery5.Close;
ADOQuery5.SQL.Clear;
ADOQuery5.SQL.Add('select *');
ADOQuery5.SQL.Add('from Ugol_Rash');
ADOQuery5.Open;
Вставка в ListBox
for n:=0 to ADOQuery5.RecordCount-1 do
begin
ListBox1.Items.Add(FormatFloat('0.######',ADOQuery5.FieldByName('Ugol_Rash').AsF loat));
ADOQuery5.RecNo:=ADOQuery5.RecNo+1;
end;
В принципе
ShowMessage(ADOQuery5.FieldByName('Ugol_Rash').AsString);
вместо .00003 показывает 0
Reindeer Moss Eater (2006-03-09 16:28:00) [4]Листбокс не может заполняться числами
| |
