Как реализовать?

Форумы Помощь по пакетуКак реализовать? ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 200

Рейтинг: 5

#1: 2009-08-24 16:45:10 ЛС | профиль | цитата

Люди добрыя помогите, всю голову сломал

. Как можно организовать в Edit проверку количества символов после точки, если количесто символов меньше, например восьми, то добовлять недостающие количество нолями, а если символов больше, то обрезать до нужного количества.

карма: 0

Администрация

Ответов: 15295

Рейтинг: 1519

#2: 2009-08-24 16:46:54 ЛС | профиль | цитата

разделяем строку элементом StrPart по точке и далее проверяем левую ее часть на указаные выше условия.

карма: 27

https://hiasm.com

Ответов: 200

Рейтинг: 5

#3: 2009-08-24 16:57:11 ЛС | профиль | цитата

Dilma, совподает или не совподает я проверяю так
code_14681.txt
а как добавить или удалить нужное количество символов??

карма: 0

файлы: 1

code_14681.txt [549B] [154]

Администрация

Ответов: 15295

Рейтинг: 1519

#4: 2009-08-24 17:06:10 ЛС | профиль | цитата

Evgen818 писал(а):

а как добавить или удалить нужное количество символов??

пример выравнивания на 8 знаков
code_14682.txt

карма: 27

https://hiasm.com

файлы: 1

code_14682.txt [375B] [213]

Ответов: 200

Рейтинг: 5

#5: 2009-08-24 17:16:19 ЛС | профиль | цитата

Dilma, спасибо огромное.
Не зря говорят "Все гениальное просто"

карма: 0

Ответов: 4641

Рейтинг: 334

#6: 2009-08-24 21:12:55 ЛС | профиль | цитата

Dilma писал(а):

пример выравнивания на 8 знаков

Dilma, а может Convertor подправить IntToStr ?? SymbolFill а??
Добавить реверсивный SymbolFill
Так наверно правильней будет.
Для себя поигрался....работает


#pas
if _prop_SymbolFill_rev <> ' then
      while Length( st ) < _prop_Digits do
         st := st + _prop_SymbolFill_rev[1];
  _hi_CreateEvent(_Data,@_event_onResult, st);

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Голосовали: Tad

Разработчик

Ответов: 26163

Рейтинг: 2127

#7: 2009-08-24 22:13:21 ЛС | профиль | цитата

Ravilr писал(а):

а может Convertor подправить IntToStr

Гы, гы. А кто-то возьмет и сдуру воткнет вместо пробела 0 и получит, к примеру, вместо 1 -- 1000, вот он потом всех тут вопросами запарит

карма: 22

Ответов: 4641

Рейтинг: 334

#8: 2009-08-24 22:23:05 ЛС | профиль | цитата

так нечего сдуру 0 в SymbolFill писать. Я предполагаю что туда пишут те кто что то соображает зачем, а не просто так.
nesco, может ты про другой элемент подумал....я говорю про Convertor. Как там сдуру что то можно написать.?

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Разработчик

Ответов: 26163

Рейтинг: 2127

#9: 2009-08-24 22:24:26 ЛС | профиль | цитата

Ravilr писал(а):

я говорю про Convertor

Можно подумать, я читать не умею.

Ravilr писал(а):

Как там сдуру что то можно написать.?

Молча. А еще и потому, что это я его туда добавил (не 0, а свойство, а то еще не так поймут)

карма: 22

Ответов: 4641

Рейтинг: 334

#10: 2009-08-24 22:27:50 ЛС | профиль | цитата

с таким раскладом можно все что хочешь получить

------------ Дoбавленo в 22.29:

nesco писал(а):

Можно подумать, я читать не умею.

читать умеешь. значит я твоего прикола не понял как это что то сдуру добавить можно..

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Разработчик

Ответов: 26163

Рейтинг: 2127

#11: 2009-08-24 22:58:24 ЛС | профиль | цитата

Ravilr писал(а):

как это что то сдуру добавить можно..

Да можно, еще как можно, и не такое добавляли

карма: 22

Ответов: 16884

Рейтинг: 1239

#12: 2009-08-24 23:43:51 ЛС | профиль | цитата

Ravilr писал(а):

Добавить реверсивный SymbolFill

nesco писал(а):

А кто-то возьмет и сдуру воткнет вместо пробела 0 и получит, к примеру, вместо 1 -- 1000

и получит замену компоненту Math (*1000). Тоже неплохо.
А

поговорка писал(а):

Сдуру можно и козу .........

Ravilr, дело предлагает - часто и густо требуется, особенно в бухгалтерских документах получить колонку цифр с выравниванием по запятой (или точке) и с одинаковым числом знаков после

___1.500
_123.127
__12.200

и если с пробелами перед - проблем нет, то с добавлением нулей "сзади" - сплошные танцы с бубном.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Разработчик

Ответов: 26163

Рейтинг: 2127

#13: 2009-08-24 23:50:39 ЛС | профиль | цитата

Пока добавил только обратное заполнение
------------ Дoбавленo в 23.52:

Tad писал(а):

и если с пробелами перед - проблем нет, то с добавлением нулей "сзади" - сплошные танцы с бубном

Это уже относится не к целому числу

карма: 22

Голосовали:

Tad

Ответов: 16884

Рейтинг: 1239

#14: 2009-08-25 00:02:40 ЛС | профиль | цитата

nesco писал(а):

Пока добавил только обратное заполнение

ну вот + от меня.
А "сдуру" можно сделать, что хочешь.
Тут один умник выложил схемку, где GlobalVar обозначены русскими буквами из того слова, что на заборах пишут. Так есть

Аксиома писал(а):

Если человек идиот, то это надолго

Ну не знает человек других слов.
Не будеш же ты к каждому компоненту привязывать набор символов.

------------ Дoбавленo в 00.04:

nesco писал(а):

Это уже относится не к целому числу

разбить число по запятой, а потом соединить - два пальца. Это тоже бубен, но маленький.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Форумы Помощь по пакетуКак реализовать? ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)