重大なエラー発生
| @@ -77,7 +77,7 @@ | ||
| 77 | 77 | bmp1 := TBitmap.Create; |
| 78 | 78 | bmp2 := TBitmap.Create; |
| 79 | 79 | try |
| 80 | - LoadToBitmap(OpenPictureDialog1.FileName, bmp2); | |
| 80 | + LoadToBitmap(OpenPictureDialog1.Files[i], bmp2); | |
| 81 | 81 | if CheckBox1.Checked = true then |
| 82 | 82 | begin |
| 83 | 83 | if bmp2.Width < bmp2.Height then |
Unit1.pas