Преобразование '1010' в '001010'
Решением является создание функции, функционально похожей на функцию Clipper - PadL(string,width,character):
|
|
function TfrmFunc.PadL(cVal: string; nWide: integer; cChr: char): string; var
i1,nStart: integer; begin
if length(cVal) < nWide then
begin
nStart:=length(cVal);
for i1:=nStart to nWide-1 do cVal:=cChar+cVal;
end;
PadL:=cVal; end; |
Затем это может вызываться c любой строкой, которой вы хотите задать определенную длину. Пользуйтесь функцией также, как вы привыкли пользоваться прежней - PadL(A,length(B),'0'); Она имеет большую гибкость - возможно заполнение любым символом до необходимой длины (удобно для задания текстовых счетчиков с фиксированным количеством символов -- PadL(A,6,'0'). [000155]
|