tamaño fijo de un edit

[victorsc]

Hola:
tengo que insertar un edit a un memo, y debe ocupar 40 caracteres.
el edit contiene el nombre del cliente (caracteres variables) y el resto deben ser espacios, pues en un punto fijo de la misma linea del memo debo insertar otro dato.
Gracias

[ixMike]

Hola, victorsc. Bienvenido al club . Recuerda echarle un vistazo a la guía de estilo.


Esto... ¿insertar un edit en un memo? Será insertar el texto de un edit en un memo

Si te he entendido bien, quieres que si en el edit pone "Miguel", pero en total tenga 20 carácteres, se añada en el memo "Miguel ", ¿no es así?

En ese caso, con un pequeño bucle se arregla la cosa:

Código Delphi [-]
var
 Tx: String;
 Maximo: Integer;
begin
 Maximo:= 20;
 Tx:= Edit1.Text;
 while Length(Tx)<20 do Tx:= Tx + ' ';
 Memo1.Text:= Memo1.Text + Tx;

Nótese que no utilizo métodos como Add o Insert en el Memo, porque están añadiendo texto en la misma línea (yo he supuesto que la última). Para cambiar cualquier otra sería:

Código Delphi [-]
Memo1.Lines[Linea]:= Memo1.Lines[Linea] + Tx;

Salu2

P.D.: Seguro que en StrUtils ya existe una función para lo que he puesto, pero como me gusta tanto reinventar la rueda

[victorsc]

Gracias por la respuesta.
perdona por la manera de hacer la pregunta, pero a veces el nivel se deja notar, yo empecé con una de esas enciclopedias de programar es fácil, y realmente me convendría aprender algo más, pero me falta tiempo, y las aplicaciones que hago son para consumo propio en el trabajo.
Voy a probarla (si la niña me deja un rato).
Victor

[ixMike]

Empezado por victorsc

perdona por la manera de hacer la pregunta

jeje, no pasa nada, hombre, pequeño fallo de "novato" (si me vieras en mis principios... )

Empezado por victorsc

Voy a probarla (si la niña me deja un rato).

¡Niña! Estate quieta, que te puedo ver a través de la pantalla