Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.26;
Скачать: CL | DM;

Вниз

Ерунда какая-то с числами   Найти похожие ветки 

 
11111   (2006-03-09 16:21) [0]

В таблице Oracle забиты числа
.1
.02
.01
.002
.001
.0002
.0001
.00003

Этими числами заполняется listBox в Delphi. Первые 7 чисел нормально заполняются, а последняя всегда почему то превращается в 0.

Столбец в который заполняются числа создан как number(20,12)


 
Reindeer Moss Eater ©   (2006-03-09 16:28) [1]

Листбокс не может заполняться числами


 
11111   (2006-03-09 16:34) [2]

Код заполнения 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:40) [3]

Ну и при чем здесь числа и Оракл?

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := Format("%18.5f",[0.00003]);
end;


 
Reindeer Moss Eater ©   (2006-03-09 17:03) [4]

Либо преобразовывать прямо на сервере:
"select to_char(Ugol_Rash,"99.99999") from Ugol_Rash"



Страницы: 1 вся ветка

Текущий архив: 2006.03.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
4-1136275989
dust
2006-01-03 11:13
2006.03.26
Получить параметры железа


1-1140433457
Asker
2006-02-20 14:04
2006.03.26
Артефакты в TreeView


1-1140511672
Bratskiy
2006-02-21 11:47
2006.03.26
Срочно нужен DsgnIntf


4-1136303742
Medved
2006-01-03 18:55
2006.03.26
Имитация нажатия клавиш keybd_event().


10-1115402391
Chattr
2005-05-06 21:59
2006.03.26
Объединение ячеек ввод формул в TExcelApplication