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:
Código:
codigo
nombre
precio
caso en que funciona el código de mi mensaje anterior, o tabulados de esta otra:
Código:
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:= ' '; Edit1.Text:= TS[0];
Edit2.Text:= TS[1];
Edit3.Text:= TS[2];
finally
TS.Free;
end;
end;
Saludos.