Pasar datos de una tabla a un memo

[maxzama]

hola de nuevo. Nesecito que me ayudes con el mismo programa.lo que tengo que hacer cuando pase informacion del (Edit al memo) introdusca lo siguiente:

que el edit1(Codigo)trabaje con 5 caracteres

que el edit2(Nombre)trabaje con 10 caracteres

que el edit(Precio)trabaje con 5 cracteres

Si ninguno cumple con los caracteres correspondiente que agrege o introdusca (0).ejemplo:

Edit1(Codigo) introdusco:01 al pasarlo al Memo:y este lo agrega automaticamente el programa por no tener los 5 caracteres->(000)

este es el codigo que introdujo->(01).
_____________________________________________
No he encontrado como hacer este codigo lo e intentado y todo me sale (Error).

[ecfisa]

Hola maxama.

Primero ajustamos la cantidad máxima de caracteres permitidos para cada TEdit:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.MaxLength:= 5;
  Edit2.MaxLength:= 10;
  Edit3.MaxLength:= 5;
end;

Seguidamente asociá el siguiente código a los eventos OnExit de los tres TEdit:

Código Delphi [-]
procedure TForm1.EditExit(Sender: TObject);
begin
  with (Sender as TEdit) do
    if (Name = 'Edit1') or (Name = 'Edit3') then  
      Text:=  StringOfChar('0',5-Length(Text)) + Text // agregar ceros delante
    else
      Text:=  Text + StringOfChar(' ',10-Length(Text)) // agregar espacios detrás
end;

Saludos.