Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Función que devuelve una cadena con longitud fija - Delphi
Lenguaje de programación Borland Delphi


Función realizada en Delphi a la cual se le pasa una cadena de texto o número con una longitud (tamaño) variable, se le pasa también el tamaño resultante de la cadena, el valor que se utilizará para rellanarla (en caso necesario) y el tamaño en el que queremos que quede.

Por ejemplo, si llamamos a la función con los siguientes parámetros:

cadLongitudFija ('305,25', 10, true, '0')

devolverá:

0000305,25

si la ejecutamos de esta otra forma:

cadLongitudFija ('AjpdSoft', 15, false, 'X')

devolverá:

AjpdSoftXXXXXXX


function cadLongitudFija (cadena : string; longitud : Integer;
    posicionIzquierda : boolean; valorRelleno : string) : string;
var
  i: integer;
begin
  if length(cadena) > longitud then
    cadena := copy(cadena, 1, longitud)
  else
  begin
    for i := 1 to longitud - Length(cadena) do
      if posicionIzquierda then
        cadena := valorRelleno + cadena
      else
        cadena := cadena + valorRelleno;
  end;
  Result := cadena;
end;
Un ejemplo de uso:
  cadena := cadena + '|';
  cadena := cadena + cadLongitudFija (tcCodigoUsuario.AsString,  8,  true, '0');
  cadena := cadena + '|';




Publicado el: 2008-03-31

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+