请问delphi中有无类似foxpro中的space函数？（就是增加空格的函数）(38分)

J

jacklee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #1

我现在要写一个给字符串定长的函数。<br>例如，某个字符串长度为8，但是我要求定长为10，这不足的两个就要用空格代替，请问这个空格如何加？<br>在foxpro中可以用space（2）就轻松的加上了2个空格，可是在delphi中如何实现？<br>如果您有什么好的方法，请附例程！谢谢！

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #2

procedure space(out ss:string;no:integer);<br>var i:integer;<br>begin<br>&nbsp; for i:=1 to no do<br>&nbsp; &nbsp; ss:=ss+#32;<br>end;

 

J

jacklee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #3

兄弟你走运，其实我只要知道＃32能代替就行了。至于函数，我自己搞定。谢了！[]

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #4

也不一定要#32,这样也可以<br>procedure space(out ss:string;no:integer);<br>var i:integer;<br>begin<br>&nbsp; for i:=1 to no do<br>&nbsp; &nbsp; ss:=ss+' ';<br>end;