Ver Mensaje Individual
  #6  
Antiguo 17-11-2011
Avatar de thelibmx
thelibmx thelibmx is offline
Miembro
 
Registrado: mar 2007
Posts: 515
Reputación: 18
thelibmx Va por buen camino
Wink 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...
Responder Con Cita