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.