Alinear Strings

[rjsitruiz]

hola:

Tengo varias lineas de Texto ejemplo:
05/24/04 08:12AM 217 860491160460464 00:45'11
05/24/04 08:13AM 217 8354128 00:00'03

cuando las guardo en DBQRMemo se me guardan de la siguiente forma
05/24/04 08:12AM 217 860491160460464 00:45'11
05/24/04 08:13AM 217 8354128 00:00'03

y quisiera que se me guardaran como muestro arriba...... cada elemnto de la linea es un campo que yo manejo Ej. Fecha: 05/24/04 Hora:08:12AM etc.

Lo que estoy haciendo es Cad1= Fecha + Hora + Ext + Phone y despues inserto en la posicion 70 la cadena dos, Cad2= Duracion no obstante me sigue saliendo
05/24/04 08:12AM 217 860491160460464 00:45'11
05/24/04 08:13AM 217 8354128 00:00'03

Que puedo hacer ??

Saludos

[jachguate]

Pues yo las veo todas iguales...

[rjsitruiz]

Perdon.. sino me hice entender

hablo de la duracion que quiero que me salga una debajo de otra....

Lo que me sale:
05/24/04 08:12AM 217 860491160460464 00:45'11
05/24/04 08:13AM 217 8354128 00:00'03

Lo que quiero que me salga:
05/24/04 08:12AM 217 860491160460464 ------- 00:45'11
05/24/04 08:13AM 217 8354128 ---------------- 00:00'03

PD: Le tuve que llenar los espacios en blanco con (-)

Saludos

[jachguate]

Podes valerte de la función Format

Algo como:

Código Delphi [-]
Cadena := format('%8.8s %7.7s %3.3s %15.15s %8.8s',
                [fecha, hora, ext, phone, duracion]);

He usado %s porque veo que ya todo está en strings, pero podes visitar la ayuda y ver los tipos soportados si hay algo que se adapte mejor.

Hasta luego.

[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

[Nuria]

Empezado por roman

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.

No sé, no sé, tendrías que ver mi código . Eso sí, funciona a las mil maravillas...

Empezado por roman

Además utilizar tu propio código te evita instalar las RX

En eso tienes razón...pero como ya utilizo las Rx, las tengo instaladas, por eso no hay problema.

Empezado por roman

junto con sus quinientas cuarenta y cinco mil setecientas veintitres funciones y objetos para algo tan sencillo.

Te debes de aburrir mucho para contar las funciones y objetos que tiene las Rx....

Gracias por el consejo Roman, lo tengo en cuenta .