怎么把int 233 格式位 '0000233'

Question

rt

Answer 1

var
  aa: string;
begin
  aa := '233';
  for lp := 1 to 7 - length(aa) do 
  aa := '0' + aa;
  showmessage(aa);
end;

Answer 2

看我的.Var
  IntValue : Integer;
  StrValue : String;
Begin
  IntValue := 123;
  StrValue := '000000' + IntToStr(IntValue);
  StrValue := Copy(StrValue, Length(IntValue) - 7, 7);
End;