Pasar datos de una tabla a un memo

[maxzama]

gracias por ayudarme. es lo que necesitaba.

pero nesecito un ultimo favor:
que me expliques el codigo. (no quiero solo copy y pegar)sino tambien entenderlo por no vale la pena copiarlo y no hecho por uno y no saver que se iso en el codigo.Gracias por la ayuda.

[maxzama]

Si sabes de alguien que necesite ayuda Y este a mi alcanse. Con gusto lo ayudare.

[ecfisa]

Hola maxzama.

TStringList es, en base una lista de strings. Previo a su uso hay que crear una instancia de la clase, cosa que se hace en la línea:

Código Delphi [-]
  TS:= TStringList.Create;

Luego de usarla hay que liberar la memoria que se ocupó, de eso se encarga la línea:

Código Delphi [-]
  TS.Free;

Entre las propiedades de TStringList figuran:

• DelimitedText, que representará todas las cadenas de la propiedad delimitadas por un separador
• Delimiter es el delimitador por el cuál se separarán las cadenas de la propiedad DelimitedText.

Por ejemplo

Código Delphi [-]
TS.DelimitedText:= 'SEPARAR EN CADENAS ESTA FRASE';
TS.Delimiter:= ' ';

hará que en TS queden:

TS[0] = 'SEPARAR'
TS[1] = 'EN'
TS[2] = 'CADENAS'
TS[3] = 'ESTA'
TS[4] = 'FRASE'

Si no he sido claro con mi explicación, no dudes en consultar nuevamente.

Si sabes de alguien que necesite ayuda Y este a mi alcanse. Con gusto lo ayudare.

Con tu consulta ya has ayudado a muchos otros que puedan tener una duda similar.

Saludos.

[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.