问一个字符串函数(10分)

R

redtea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #1

把字符串转变成相同长度的，不足的后面补空格，
delphi里是用哪个函数的？
多谢了。

 

B

Beast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #2

自己写不行吗？？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
s:string;
begin
s:=Edit1.Text;
j:=10-length(Edit1.Text);
if j>0 then for i:=1 to j do s:=s+' ';
Edit1.Text:=s;
end;

 

E

ESH

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #4

procedure LEN(L: INTEGER);//L是长度
var
i,j:integer;
s:string;
begin
s:=TRIM(Edit1.Text);
j:=L-length(Edit1.Text);
if j>0 then for i:=1 to j do s:=s+' ';
Edit1.Text:=s;
end;

 

R

redtea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #5

没有现成的函数吗？我查了好久help都没找到。
好吧，自己写。
多谢各位 。

 

R

redtea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #6

多人接受答案了。