Foros Club Delphi - Pasar datos de una tabla a un memo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Pasar datos de una tabla a un memo (https://www.clubdelphi.com/foros/showthread.php?t=22078)

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.

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

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:

Código:

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.

Cita:

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. :)

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

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.