Ver Mensaje Individual
  #4  
Antiguo 18-01-2008
[basti] basti is offline
Miembro Premium
 
Registrado: ago 2004
Posts: 388
Reputación: 20
basti Va por buen camino
Hola, el problema está en la creación del objeto y en la forma de usar delimitedText. Ya que los datos vienen separados por comas mejor que DelimitedText deberías usar CommaText:
Código Delphi [-]
procedure TformPrincipal.btnAbrirClick(Sender: TObject);
var Dir: string;
    t :TStringList;
begin
  if CargarPLU.Execute then
  begin
    t := TStrinList.Create;
    t.Clear;

    Memo.Clear;
    Dir := CargarPLU.FileName;
    Memo.Lines.LoadFromFile(Dir);
    eDireccion.Text := Dir ;   //Edit para visualizar la ruta 
    // t.LoadFromFile(Dir); No cargar los datos desde el archivo, hay que asignarlos a CommaText
    t.CommaText := Memo.Lines.Text;          
    Memo2.Lines.Assign(t);     //Para Visualizar el StringList
    t.free;
  end;

end;
__________________
Saludos.
Responder Con Cita