tamaño fijo de un edit

[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