如何在str:String尾补足空格,使str长度达到固定的20位?

Question

如题,str来源于一个字段,原本的最大长度不会超过20. 谢谢!

Answer 1

Function RepStr(SourceString:String;RepChar:Char;Nt:Integer):String;
var
  SL,i:Integer;
  sEmp:String;
begin
  sEmp:='';
  Sl:=Length(SourceString);
  For i:=0 to Nt-Sl-1 do 
    sEmp:=sEmp+RepChar;
  Result:=SourceString+sEmp;
end;///应用
  ResultString:=RepStr(str,' ',20);

Answer 2

Str:String[20]
这样就可以了！Str:=VarValue+' '{20个空格}

Answer 3

不用那么复杂，建议好好研究formatstr := format('%-20s', [yourStringHere]);