Форматирование Чисел

← →
Leito (2006-01-17 01:54) [0]

Ребята, подскажите как преобразовать на делфи формат 123,4Е005 в 123,4Х10^5, плиз!!

← →
Bogdan1024 © (2006-01-17 03:05) [1]

unit math
power(10,5)*123,4

← →
Leito © (2006-01-17 03:37) [2]

Не, не, я наверное непрвильно выразился. У меня есть проект, в нем много расчетов, мне надо их вывести пользователю в удобном для чтения виде, Но делфи по умолчанию результаты расчетов представляет в виде 2,02Е004; тоесть 2,02 уснож на 10 в 4-ой степени. Так вот как мне эти результаты преобразовать в вид 2,02Х10^4??

← →
gdaujk © (2006-01-17 08:49) [3]

FloatToStrF

PS: читайте хелп...

← →
evvcom © (2006-01-17 08:49) [4]

А чем тебе общепринятый научный вид (2,02Е004) не нравится? Ну распарсь строку-результат сам, парсинг здесь простейший.

← →
gdaujk © (2006-01-17 09:00) [5]

>evvcom © (17.01.06 08:49) [4]

Перефразирую пословицу: Строки парсинга не стоят...

← →
begin...end © (2006-01-17 09:03) [6]

> gdaujk © (17.01.06 08:49) [3]

Чем здесь поможет FloatToStrF?

← →
gdaujk © (2006-01-17 09:46) [7]

>begin...end © (17.01.06 09:03) [6]

Точно. Извиняюсь, недостаточно внимательно прочёл ветку :-)

>evvcom © (17.01.06 08:49) [4]

Ишшо раз извиняюсь. Парсинг в самый раз :-)))

PS: Простите дурака :-)))

Тогда меня тоже за безграмотность простите, но что значит "РАСПАРСИТЬ"??

procedure TForm1.Button1Click(Sender: TObject); var str,str1: String; begin str := "1234,5E005"; Insert("X10^", str, Pos("E",str)); Delete(str, Pos("E", str), 1); str1 := Copy(str, Pos("^", str)+1, Length(str)); Delete(str, Pos("^", str)+1, Length(str)); while str1[1] = "0" do Delete(str1, 1, 1); Edit1.Text := str + str1; end;

Спасибо!

Форматирование Чисел Найти похожие ветки