Código Delphi [-] Function FillSpaces(cVar:String;nLen:Integer):String; begin Result:=StringOfChar(' ',nLen - Length(cVar))+cVar; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:= FillSpaces(Edit1.Text, 10); end;
Function FillSpaces(cVar:String;nLen:Integer):String; begin Result:=StringOfChar(' ',nLen - Length(cVar))+cVar; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:= FillSpaces(Edit1.Text, 10); end;