Pasar datos de una tabla a un memo

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

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