Código Delphi [-] function Alinea(S: String; N: Integer): String; begin Result:=StringOfChar('0',N-Length(S))+S; end; procedure TForm1.Button1Click(Sender: TObject); begin caption:=alinea('9',6) end;
function Alinea(S: String; N: Integer): String; begin Result:=StringOfChar('0',N-Length(S))+S; end; procedure TForm1.Button1Click(Sender: TObject); begin caption:=alinea('9',6) end;