Código Delphi [-] procedure TConsulta.cxButton3Click(Sender: TObject); begin if OpenDialog1.Execute then //Edit1.Text:=OpenDialog1.Files.Text; Edit1.Text:=OpenDialog1.Filename; end;
procedure TConsulta.cxButton3Click(Sender: TObject); begin if OpenDialog1.Execute then //Edit1.Text:=OpenDialog1.Files.Text; Edit1.Text:=OpenDialog1.Filename; end;