Конвертация Exp в Extended

← →
ГореПрограммер (2006-09-04 14:25) [0]

Здравствуйте, есть такая задача:
имеется число: предположим 2.42e-05 как его сконвертировать в обычный extended ?

← →
Elen © (2006-09-04 14:28) [1]

Вот тебе Горе-ответ :
unit Unit1; procedure TForm1.FormCreate(Sender: TObject); var e:extended; begin e:=2.42e-05; end;

← →
ГореПрограммер (2006-09-04 14:31) [2]

e:=strtofloat("2.42e-05");
Не будет работать, почему ?
у меня есть текст в таком виде, как мне его преобразовать ?

← →
Loginov Dmitry © (2006-09-04 14:32) [3]

> e:=strtofloat("2.42e-05");

Что еще-то нужно?

← →
Elen © (2006-09-04 14:34) [4]

> ГореПрограммер

У меня работает. Как проявляется твое "не работает"?

← →
ГореПрограммер (2006-09-04 14:34) [5]

2.42e-05 is not a valid floating point value
а при присваивании
e:=2.42e-05;
все корректно

← →
Elen © (2006-09-04 14:36) [6]

> ГореПрограммер

У меня :
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var e:extended; Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin e:=strtofloat("2.42e-05"); caption:=floattostr(e); end; end.

Все работает. Какая у тебя Делфа?

← →
PVOzerski © (2006-09-04 14:38) [7]

А с DecimalSeparator всё в порядке?

← →
han_malign © (2006-09-04 14:38) [8]

DecimalSeparator
- для русской локали - по умолчанию - ","

DecimalSeparator в системе кривой

← →
ГореПрограммер (2006-09-04 14:38) [10]

Абсолютно аналогичный код вызывает описанную выше ошибку. использую Delphi 2006

> ГореПрограммер

e:=strtofloat("2,42e-05");
А так?

← →
ГореПрограммер (2006-09-04 14:43) [12]

Все, всем спасибо, про DecimalSeparator не подумал (

Конвертация Exp в Extended Найти похожие ветки