Agregar ceros al pincipio de folio

02-05-2007

marcoszorrilla marcoszorrilla is offline

Capo

Registrado: may 2003

Ubicación: Cantabria - España

Posts: 11.221

Poder: 10

Aquí tienes un ejemplo que acabo de preparar, es para añadir ceros por la izquierda.

Código Delphi [-]Function FillSpacesLeft(cVar:String;nLen:Integer):String;
 begin
 Result:=StringOfChar('0',nLen - Length(cVar))+cVar;
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FillSpacesleft(Edit1.Text, 10);
end;

Un Saludo.

__________________
Guía de Estilo de los Foros

Cita:

- Ça c'est la caisse. Le mouton que tu veux est dedans.

« Tema Anterior | Próximo Tema »

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Como poner ceros antes y despues de un numero fraccionario?	Luis Alberto	Varios	6	21-12-2005 21:29:24
Como llenar con espacion en blanco o con ceros una cadena?	Luis Alberto	Varios	10	02-12-2005 19:14:02
Como poner ceros delante de un numero?	juliopag1	Firebird e Interbase	4	28-09-2005 01:11:06
imprimir una imagen en tamaño folio	rebollo75	Impresión	3	20-04-2005 18:35:42
Ceros antes de un numero	MRSAM	Varios	2	24-11-2004 03:24:08

La franja horaria es GMT +2. Ahora son las 12:56:14.