Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.23;
Скачать: CL | DM;

Вниз

сохранить ico бд   Найти похожие ветки 

 
rar ©   (2007-08-29 08:29) [0]

увжаемые мастера подскажите почему это работает

procedure TForm1.Button4Click(Sender: TObject);
var
 Icon: TIcon;
begin
   OpenDialog1.Execute;
   Icon := TIcon.Create;
   Icon.LoadFromFile(OpenDialog1.FileName);
   ADODataSet1.Edit;
   ADODataSet1.FieldByName("CL").AsInteger:=integer(Icon);
   ADODataSet1.Post;
       Image1.Picture.Graphic:=TIcon(ADODataSet1.FieldByName("CL").AsInteger);
end;


 
Сергей М. ©   (2007-08-29 08:53) [1]

Прокомментируй глубину своей творческой мысли - хранить в БД указатель ..


 
sniknik ©   (2007-08-29 08:57) [2]

потому, что адрес компонента это вовсе не содержимое, сохранять адрес толку мало. неважно куда, бд тут не причем.

+, даже в этом случае, когда адрес еще валидный, имедж вроде бы не работает с ico  (видел функции преобразований для имеджа... нафига бы они были нужны если бы можно было вот так просто присвоить...).


 
Desdechado ©   (2007-08-29 10:45) [3]

http://delphimaster.net/view/3-1188310105/



Страницы: 1 вся ветка

Текущий архив: 2007.09.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
4-1175102152
Express
2007-03-28 21:15
2007.09.23
Как посласть сообщение о нажатие кнопки "Отмена" в MessageDLG?


3-1179783966
-=Саня=-
2007-05-22 01:46
2007.09.23
Запрос с добавлением нового поля


1-1184240354
Layner
2007-07-12 15:39
2007.09.23
Как узнать свойства и методы объекта OLEVariant


5-1161366739
Zurius
2006-10-20 21:52
2007.09.23
Отображения длинной строки в ComboBox


8-1165959626
esyes
2006-12-13 00:40
2007.09.23
наложение BitMap a на BitMap