高分求函数，特急(156分)

2

20060827

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-07

• #1

定长输出左右补位函数：
如：abc，需要输出为 00000abc
bc，需要输出为 000000bc
可以左右进行补位，且补的内容可以定义
特急，高分

 

Q

ql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-07

• #2

function setlen(TmpStr:string;TmpChr:char;TmpLen:integer;const TmpFlag:integer):string;
begin
case Tmpflag of
0: Result := StringOfChar(TmpChr,TmpLen-Length(TmpStr)) + TmpStr;
1: Result := TmpStr + StringOfChar(TmpChr,TmpLen-Length(TmpStr));
end;
end;

 

X

xmpilot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-07

• #3

while length(s)<8 do s:='0'+s; //s:表示要被补位的字符串

 

L

lgzh_3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-07

• #4

funciton cc(bw,ss:sting):string/bw就是你设置00 ss就是ab
var
i,m,n:intger;
sbw:string;
begin
sbw:=bw;
bw:='';
m:=8;
i:=Length(ss);
for n:=0 to m-i do
begin
bw:=bw+sbw;
end;
ss:=bw+ss;
result:=ss;
end;

 

2

20060827

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-07

• #5

谢谢，ql的方法好，强。。。。。。
to ql
可以交流一下吗？
email:ztgm_1@tom.com

 

L

lgzh_3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-07

• #6

我这个是左补了
想右补自己添加个标志参数了

 

X

xmpilot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-07

• #7

补充一下：
var x:char; //要补的字符
var k:string;// 要补的方向
var s:string;//被补的字符串
var i:string; //总位数
if k='左' then while length(s)<i do s:=x+s;
if k='右' then while length(s)<i do s:=s+x;