Tema
:
Rellenar con 0....
Ver Mensaje Individual
#
6
17-11-2011
thelibmx
Miembro
Registrado
: mar 2007
Posts
: 515
Reputación
:
18
Rellenar Strings con caracteres
Pues para las nuevas generaciones va
function LPad(S: String; Ch: Char; Len: Integer): String;
begin
Result := StringOfChar(Ch, Len - Length(S)) + S;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
e2.text:=(LPad(e1.text,'0',10));
end;
__________________
En movimiento...
thelibmx
Ver Perfil
Encontrar Todos los Mensajes de thelibmx