Показать сообщение отдельно
  #5  
Старый 10.06.2008, 10:56
Жендос Жендос вне форума
Прохожий
 
Регистрация: 10.06.2008
Адрес: Ижевск
Сообщения: 8
Репутация: 10
По умолчанию

В общем:

TMaterials = record
Name, Article: String[100];
Manufacturer:String[20];
Image: TBitMap;
End;

Картинка будет открываться из файла в TImage и из TImage сохраняться в TMaterials.Image
__________________
Я бы изменил мир, но бог исходников не дает!
Ответить с цитированием