Alinear Strings

[rjsitruiz]

24/05/04 08:12AM 217 860491160460464 00:45:11
24/05/04 08:13AM 217 ----- 8354128 00:00:03

Pues asi es como sale..... no se porque....

No obstante gracias

[[Lepe]]

La funcion Format nunca la habia usado así, lo que si tengo a mano son estas 2 funciones que vienen con las Rxlibs en la unidad nkStrs. Si no recuerdo mal eran originarias de las NKLibs que han ido quedando algo obsoletas.

Código Delphi [-]
function PadLeft(const cStr: String; ch: char; iLen: Integer): String;
begin
  if Length(cStr) >= iLen then
    Result := Copy(cStr, 1, iLen)
  else
    Result := StringOfChar(ch, iLen - Length(cStr)) + cStr;
end (*PadLeft*);

function PadRight(const cStr: String; ch: char; iLen: Integer): String;
begin
  if Length(cStr) >= iLen then
    Result := Copy(cStr, 1, iLen)
  else
    Result := cStr + StringOfChar(ch, iLen - Length(cStr));
end (*PadRight*);

Ejemplo:

Código Delphi [-]
   Padright(telefono,'-', 15);  //8354128--------
   PadLeft(telefono,'-',15);   //--------8354128

Saludos

[jachguate]

Siguiendo todo el hilo, me da la impresión que lo que queres es que se "vean" alineados en pantalla, ¿cierto?.

Si estas usando un Memo, lo que hace falta es que uses un tipo de letra "monospace", es decir, que todos los caracteres ocupen el mismo espacio, como la Courier, por ejemplo.

Lo usual, en fuentes TrueType es que cada letra ocupe el espacio "necesario", de esta manera, si tenes una cadena con 6 ies y una con 6 emes, será mucho "mas larga" la de las emes:

Empezado por arial

iiiiiiabcde
mmmmmmabcde

en cambio, en courier:

Empezado por courier new

iiiiiiabcde
mmmmmmabcde

Hasta luego.

[rjsitruiz]

La verdad que el que sabe.... sabe. :-)

Y el que no... se rompe la cabeza tratando de inventar funciones.

Saludos a todos y gracias por su tiempo

[roman]

Empezado por rjsitruiz

La verdad que el que sabe.... sabe. :-)

Y el que no... se rompe la cabeza tratando de inventar funciones.

Y el que sabe, lo sabe porque en su momento se rompió la cabeza

[rjsitruiz]

jajajaja tienes toda la razón Roman.

Una vez mas, Saludos y MIL Gracias a todos

[Nuria]

Empezado por rjsitruiz

La verdad que el que sabe.... sabe. :-)

Y el que no... se rompe la cabeza tratando de inventar funciones.

Empezado por roman

Y el que sabe, lo sabe porque en su momento se rompió la cabeza

Y hay otros que se rompierón la cabeza... , y al final tuvieron que inventar una función. Y encima voy y la llamo fPad, ahora sabiendo que existe PadLeft-PadRight cambieré mi función que seguro que va más rápido. Nunca te acostarás sin saber una cosa más....

Saludos!

[roman]

Empezado por Nuria

ahora sabiendo que existe PadLeft-PadRight cambieré mi función que seguro que va más rápido.

Bueno, yo no veo particularmente rápido el código descrito y no creo que sea esencialmente más rápido que cualquiera al que tú misma hayas llegado. Además utilizar tu propio código te evita instalar las RX junto con sus quinientas cuarenta y cinco mil setecientas veintitres funciones y objetos para algo tan sencillo.

// Saludos