|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как привести код к компактному виду
Здравствуйте. Как можно привести к компактному виду код ниже?
Код:
if length(f4)<8 then begin case length(f4) of 1:begin f4:='0000000'+f4; end; 2:begin f4:='000000'+f4; end; 3:begin f4:='00000'+f4; end; 4:begin f4:='0000'+f4; end; 5:begin f4:='000'+f4; end; 6:begin f4:='00'+f4; end; 7:begin f4:='0'+f4; end; end; end; if length(f5)<8 then begin case length(f5) of 1:begin f5:='0000000'+f5; end; 2:begin f5:='000000'+f5; end; 3:begin f5:='00000'+f5; end; 4:begin f5:='0000'+f5; end; 5:begin f5:='000'+f5; end; 6:begin f5:='00'+f5; end; 7:begin f5:='0'+f5; end; end; end; if length(f6)<8 then begin case length(f6) of 1:begin f6:='0000000'+f6; end; 2:begin f6:='000000'+f6; end; 3:begin f6:='00000'+f6; end; 4:begin f6:='0000'+f6; end; 5:begin f6:='000'+f6; end; 6:begin f6:='00'+f6; end; 7:begin f6:='0'+f6; end; end; end; |
#2
|
|||
|
|||
На другом форуме подсказали. Может кому понадобится
Код:
f4 := Format('%.*d', [8 - Length(f4), 0]) + f4; f5 := Format('%.*d', [8 - Length(f5), 0]) + f5; f6 := Format('%.*d', [8 - Length(f6), 0]) + f6; |
#3
|
||||
|
||||
Можно ещё и так
Код:
f4:= StringOfChar('0', 8-Length(f4)) + f4; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |