Pasar datos de una tabla a un memo

[Neftali [Germán.Estévez]]

¿Seguro que ya tienes los 200 caracteres?
¿Tienes los memos bien numerados?

Sigo sin entenderlo muy bien, pero prueba pasando éstas líneas después del if (justo antes del Until):

Código Delphi [-]
   mm.lines.add(FieldByName('Codigo').AsString + ('-------'));
  Next;

[maxzama]

saliendo del tema DE USTEDES(NECESITO AYUDA ): ESTOY HACIENDO UN PROGRAMA QUE HACE ESTO:

__ALMACENO DEL EDIT ALMEMO

__TAMBIEN LO GUARDO A LA BASE DE DATO

___Y ELIMINA

PERO LO QUE NECESITO ES Q QUIERO PASAR LA INFORMACION DEL MEMO AL EDIT NUEVAMENTE.DANDOLE CLICK CON EL RATON.

PORFAVOR LO NECESITO ME QUEDA POCO TIEMPO PARA ENTREGARLO Y HECHO DE TODO.
ESTE ES MI CORREO:[email protected]

[ecfisa]

Hola maxzama y bienvenido a Club Delphi

Por favor, lee nuestra [guía de estilo], en especial los puntos [1], [2] y [9]

Saludos y gracias por tu colaboración.

[maxzama]

bueno disculpa si me exprese mal o mi forma de mi vocabulario.mejorare en eso.
____________________________________________________

1)Necesito ayuda. mi problema es q tengo que hacer es pasar de un leguaje culaquiera a delphi(como si fuera un traductor).
este programa tengo q hacerlo en delphi.

2)y el otro programa es: de almacernar un codigo,nombre,precio a un Memo y si uno quiere editar la informacion entonces q uno le de click con el raton a una de las linias almacenada en el memo y buelva otrabes
la informacion a los edit.

Ya yo pude almacenar informacion al memo pero no pude hacer lo contrario(del memo a los Edit).

utilizando estas herramientas:
3 Edit
1 memo.

si pueden ayudarme se lo agradeceria.
(si no igualmente gracias por leer esta informacion)

[ecfisa]

Hola maxzama.

Este código enviará la línea actual al Edit correspondiente:

Código Delphi [-]
procedure TForm1.Memo1Click(Sender: TObject);
var
  Linea: Integer;
begin
  Linea:= Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
  case Linea of
    0: Edit1.Text:= Memo1.Lines[Linea]; // codigo
    1: Edit2.Text:= Memo1.Lines[Linea]; // nombre
    2: Edit3.Text:= Memo1.Lines[Linea]; // precio
  end;
end;

Y si queres pasar la tres líneas de una sola vez:

Código Delphi [-]
procedure TForm1.btnPasarLas3Click(Sender: TObject);
begin
  Edit1.Text:= Memo1.Lines[0]; // codigo
  Edit2.Text:= Memo1.Lines[1]; // nombre
  Edit3.Text:= Memo1.Lines[2]; // precio
end;

Saludos.

[maxzama]

Bueno me esplicado mal el codigo que me mandaste ya lo tengo.

lo que quiero es pasar lo q:

es del codigo lo pase al edit de codigo

lo q

es del nombre lo pase al edit de nombre


[al darle click al memo.]
______________________________

Gracias por responderme.

[ecfisa]

Empezado por maxzama

Bueno me esplicado mal el codigo que me mandaste ya lo tengo.

lo que quiero es pasar lo q:

es del codigo lo pase al edit de codigo

lo q

es del nombre lo pase al edit de nombre


[al darle click al memo.]
______________________________

Gracias por responderme.

Hola.

Eso es lo que hace precisamente el primer código de los dos que te puse: Al hacer click sobre el Memo, obtiene la línea que está actualmente seleccionada y de acuerdo a la posición obtenida la pasa al Edit correspondiente...

Saludos.