Pasar datos de una tabla a un memo

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

[maxzama]

el codigo que me pasaste ase que al darle click a la linia 1 del memo pasa toda esa informacion completa al edit1.Y asi con los otros edit al presionar las otras lineas del memo.
__________________________________________________________________
lo que quiero es esto:

cuando almaceno el codigo(001) y el nombre(er) y el precio (2000), al memo.

estos mismo valores que introduje lo muestre en los edit de nuevo al darle click a la linia del memo.
_____________
es decir:
al darle click a la linia del memo

q el (001) regrese al edit que dice codigo

q el (er) regrese al edit que dice nombre

q el (2000)regrese al edit q dice precio

Espero tu respuesta Gracias de nuevo.

[ecfisa]

A ver... el problema es que no has explicado algo muy importante: Como están ubicados los datos en el memo.

Encolumnados, de esta forma:

codigo
nombre
precio

caso en que funciona el código de mi mensaje anterior, o tabulados de esta otra:

codigo nombre precio

para lo cuál tendrías que hacer:

Código Delphi [-]
procedure TForm1.Memo1Click(Sender: TObject);
var
  TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    TS.DelimitedText:= Memo1.Lines[Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0)];
    TS.Delimiter:= ' '; // separador de datos
    Edit1.Text:= TS[0];
    Edit2.Text:= TS[1];
    Edit3.Text:= TS[2];
  finally
    TS.Free;
  end;
end;

Saludos.