Текущий архив: 2006.02.12;
Скачать: 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 вся ветка
Текущий архив: 2006.02.12;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.036 c
