![Surprised :o](./images/smilies/102.gif)
Найдено 84 результата
- 26 дек 2006, 13:49
- Форум: Программирование
- Тема: DobleToStr
- Ответы: 14
- Просмотры: 5381
- 26 дек 2006, 11:08
- Форум: Программирование
- Тема: Маркеры в Support
- Ответы: 6
- Просмотры: 2864
- 26 дек 2006, 10:55
- Форум: Программирование
- Тема: DobleToStr
- Ответы: 14
- Просмотры: 5381
- 25 дек 2006, 11:13
- Форум: Программирование
- Тема: DobleToStr
- Ответы: 14
- Просмотры: 5381
- 22 дек 2006, 14:15
- Форум: Программирование
- Тема: DobleToStr
- Ответы: 14
- Просмотры: 5381
doubletostr(25,' \m4 руб.')+' '+doubletostr(21,'\f4 коп.') Т.е. выделяешь целую часть. Потом выделяешь дробную, приводя ее к целому виду А := 25.21 // исходное число В := integer(A) // целая часть C := integer((A-integer(A))*100) // дробная часть doubletostr(B,' \m4 руб.')+' '+doubletostr(C,'\f4 коп...
- 21 дек 2006, 11:23
- Форум: Программирование
- Тема: FCOM
- Ответы: 6
- Просмотры: 2889
- 20 дек 2006, 15:36
- Форум: Программирование
- Тема: FCOM
- Ответы: 6
- Просмотры: 2889
Что-нибудь типа (общая идея): .var mm : string sum : integer .endvar .begin mm := '' sum := 0 end. . . . . .begin mm := SomeField1 sum := sum + SomeField2 end. .{?internal; (SomeField1<> mm and mm <> ''); .Fields mm //SomeField1 sum //SomeField2 .EndFields ^ ^ .begin mm := SomeField1 sum := SomeFiel...
- 19 дек 2006, 19:23
- Форум: Программирование
- Тема: Обороты и Кау
- Ответы: 2
- Просмотры: 1818
- 18 дек 2006, 18:57
- Форум: Программирование
- Тема: InitServKAU и coGetTune
- Ответы: 6
- Просмотры: 2826
- 12 дек 2006, 11:39
- Форум: Программирование
- Тема: Интерфейс выборки отчетов
- Ответы: 4
- Просмотры: 2600
- 12 дек 2006, 10:57
- Форум: Программирование
- Тема: Интерфейс выборки отчетов
- Ответы: 4
- Просмотры: 2600
- 08 дек 2006, 17:12
- Форум: Программирование
- Тема: Падает, в чем причина?
- Ответы: 4
- Просмотры: 2345
- 08 дек 2006, 17:10
- Форум: Программирование
- Тема: Раскладка клавиатуры
- Ответы: 2
- Просмотры: 1735
- 08 дек 2006, 11:04
- Форум: Программирование
- Тема: Почему тормозит???
- Ответы: 8
- Просмотры: 3681
//║ Галактика (с) 1995, 97 TOP SOFT Ltd., Новый АТЛАНТ //║ Версия : 5.20 //║ Назначение: Баундсы документов-оснований Bounds MainBound = tipDO == BaseDoc.VidDoc ordered by BaseDoc.dDoc,BaseDoc.NoDoc Bounds VscBound = tipDO == BaseDoc.VidDoc and curdescr == BaseDoc.Descr ordered by BaseDoc.dDoc,BaseD...
- 07 дек 2006, 11:11
- Форум: Программирование
- Тема: Параметры STAFFSTRUCT
- Ответы: 2
- Просмотры: 1686