Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var Ruta: String; begin OpenPictureDialog1.FileName:= 'C:\Ibiza.bmp'; // ruta estandart OpenPictureDialog1.FileName:= Query1Ruta.Astring; // ruta de la tabla Ruta:= OpenPictureDialog1.FileName; Image1.Picture.LoadFromFile(Ruta); end;
procedure TForm1.Button1Click(Sender: TObject); var Ruta: String; begin OpenPictureDialog1.FileName:= 'C:\Ibiza.bmp'; // ruta estandart OpenPictureDialog1.FileName:= Query1Ruta.Astring; // ruta de la tabla Ruta:= OpenPictureDialog1.FileName; Image1.Picture.LoadFromFile(Ruta); end;