Здравствуйте. Как можно привести к компактному виду код ниже?
Код:
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;