FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
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... |
#2
|
||||
|
||||
bueno quiza ya fue respondida la pregunta....
pero aqui les envio lo que yo hago
para llamarlo
__________________
Dulce Regalo que Satanas manda para mi..... |
|
|
|