请教大侠，delphi中有没有将一个字符串扩充的函数？

Question

现在有一张号段表，字段有：号段ID，起始号码，结束号码。
例如：号段ID    起始号码    结束号码
       310      33300000...    33399999...程序界面上需要能根据号段查出所有在起始号码和结束号码之前的号码，但是起始号码和结束号码的类型是varchar2(24)，而实际的号码可能不到24位，例如是 59283975，这样我就需要将该号码的后面几位以0填充，然后才能和起始号码、结束号码进行比较，delphi中有这样的字符处理函数吗？thanks！

Answer 1

declare @d varchar(24), @a int, @b varchar(24), @max int, @min int
set @d = '111111111'
set @a = len(@d)
set @b = '' 
select @a
set @min = 1
set @max = 24 - @a
while @min <= @max
begin
  Set @b = @b + '0'
  set @min = @min + 1
endselect @d+@b

Answer 2

in delphi:
Copy(s+StringOfChar('0',24),1,24)