Вверх ↑
Этот топик читают: Гость
Ответов: 96
Рейтинг: 1
#1: 2010-12-11 10:59:21 ЛС | профиль | цитата
А можно вооюще создать компонент, при помощи которого можно менять формат представления числа например как в Excel
карма: 0

0
Ответов: 3349
Рейтинг: 233
#2: 2010-12-11 17:23:45 ЛС | профиль | цитата
Всмысле? Не это случаем?
карма: 1

0
Ответов: 96
Рейтинг: 1
#3: 2010-12-12 10:52:06 ЛС | профиль | цитата
Примерно так code_21773.txt,

------------ Дoбавленo в 10.51:
но только выдает ошибку http://forum.hiasm.com/forum_serv.php?q=56&id=2011
------------ Дoбавленo в 10.52:

карма: 0

0
файлы: 1code_21773.txt [1.9KB] [380]
Ответов: 3349
Рейтинг: 233
#4: 2010-12-12 12:04:05 ЛС | профиль | цитата
А на словах можно объяснить?
карма: 1

0
Ответов: 96
Рейтинг: 1
#5: 2010-12-12 12:38:00 ЛС | профиль | цитата
Примерно так, эта схема для представления числа меньше 1 в экспоненциальном виде. Число постумает в компонент memory и потом умножэается на 10 до тех пор, пока после запятой не появиться число больше нуля, и выдает получившееся число в удобеом виде. Значение после Е, равно тому сколько раз первоначальное число было умножено на 10. В таком виде code_21775.txt схема работает, а в таком
code_21776.txt выдает ошибку, указанную выше.
карма: 0

0
файлы: 2code_21775.txt [1.6KB] [448], code_21776.txt [1.9KB] [434]
Ответов: 199
Рейтинг: 44
#6: 2010-12-12 12:53:38 ЛС | профиль | цитата
code_21777.txt

у тебя "кольцевание":


Add(Math,6949061,441,511)
{
OpType=2
Op2=10
link(onResult,7459991:doEvent1,[(513,517)(513,500)(394,500)(394,469)])
}
Add(If_else,8792446,343,511)
{
Type=1
Op2=Real(0.1)
link(onTrue,6949061:doOperation,[])
}
Add(For,7283980,301,511)
{
End=100
link(onEvent,8792446:doCompare,[])
}
Add(Hub,7459991,406,463)
{
InCount=2
link(onEvent2,7283980:doFor,[(432,476)(432,496)(289,496)(289,517)])
}


карма: 0

0
файлы: 1code_21777.txt [999B] [417]
Ответов: 16884
Рейтинг: 1239
#7: 2010-12-12 18:42:11 ЛС | профиль | цитата
301992, В шутку, можно и так:
code_21782.txt
------------ Дoбавленo в 18.36:

------------ Дoбавленo в 18.42:
Между прочим в KOL такая функция есть :

function Format( const fmt: string; params: array of const ): String;
но в Delphi неработает, а для FPC - запрещена.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_21782.txt [2KB] [392]
Ответов: 8921
Рейтинг: 823
#8: 2010-12-13 15:24:01 ЛС | профиль | цитата
301992, вот как это выглядит не в строках, а в арифметике
Пока возился с кирилицей, залил не тот файл , исправил
------------ Дoбавленo в 15.24:
А вот окончание с IC
карма: 19

0
файлы: 2expnumb_2.rar [1.1KB] [255], expnumb_4.rar [2.4KB] [255]
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)