谁知道这个函数,简单(50分)

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #1

定义一个字符串变量
var sNAME:string;

类似于Oracle的函数：Lpad(sName,10,'0')
如果sName不足10位在左边以0补齐。
由于手关没有资料，附近的书店也没了，故问这么一个简单的问题!

 

胡

胡柚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #2

自己写个过程就可以了

procedure Lpad(var s: String
len: Integer
fc: Char);
var
i: Integer;
begin
for i := length(s)+1 to len do
s := s+fc;
end;

 

D

duanliandl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #3

同意楼上的，没有这个函数，自己写一个，很简单。

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #4

楼上的老师
pascal没有现成的函数？

 

T

tianlianglm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #5

胡柚的做法会将补充的字符放在后面。
function lpad(sname:string;len:integer;charchar):string;
var
i:integer;
str:string;
begin
str:='';
if length(sname)<len then
begin
for i:=length(sname)+1 to len do
str:=str+char;
str:=str+sname;
lpad:=str;
end;
end;

 

T

tulipfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #6

没有，可以用format('%.10s', [])进行转换

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #7

OK