В общем:
TMaterials = record
Name, Article: String[100];
Manufacturer:String[20];
Image: TBitMap;
End;
Картинка будет открываться из файла в TImage и из TImage сохраняться в TMaterials.Image
__________________
Я бы изменил мир, но бог исходников не дает!
|