Скачать: CL | DM;

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

← →
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: Простите дурака :-)))

---

← →
Leito ©   (2006-01-17 16:01) [8]

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

---

← →
kukuikar ©   (2006-01-17 16:31) [9]

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;

---

← →
Leito ©   (2006-01-23 10:09) [10]

Спасибо!

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c