Главная страница
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.045 c
1-1140501734
Димон
2006-02-21 09:02
2006.03.26
Ошибки в проекте


2-1142155503
Ega23
2006-03-12 12:25
2006.03.26
Сохранить файл в Unicode


2-1142183531
Din
2006-03-12 20:12
2006.03.26
Как удалить и скопировать файлы по маске?


2-1142191745
kilop
2006-03-12 22:29
2006.03.26
Как в RichEdit программно выделить нужную мне строку?


15-1141280821
WondeRu
2006-03-02 09:27
2006.03.26
Text Art - кидайте сюда, что знаете интересного :)