Código Delphi [-] uses Jpeg; procedure TForm1.Button1Click(Sender: TObject); begin if opendialog1.execute then image1.Picture.LoadFromFile(opendialog1.FileName); end;
uses Jpeg; procedure TForm1.Button1Click(Sender: TObject); begin if opendialog1.execute then image1.Picture.LoadFromFile(opendialog1.FileName); end;