procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
var S:STring;
begin
i:=100;
S:=Format('%10d',[i]);
ShowMessage(s);
ShowMEssage(inttostr(Length(S)));
end;
var i:integer;
var S:STring;
begin
i:=100;
S:=Format('%10d',[i]);
ShowMessage(s);
ShowMEssage(inttostr(Length(S)));
end;
Format('%-.10d', [100])
尤其感谢 chechy(chechy) 先生(女士)
可以告诉我怎么给分吗?