![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
сохранить ico бд [D7]
rar © (2007-08-29 08:29:00)увжаемые мастера подскажите почему это работает
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;
Desdechado (2007-08-29 10:45:00) [1]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1188310105&n=1
sniknik (2007-08-29 08:57:00) [2]потому, что адрес компонента это вовсе не содержимое, сохранять адрес толку мало. неважно куда, бд тут не причем.
+, даже в этом случае, когда адрес еще валидный, имедж вроде бы не работает с ico (видел функции преобразований для имеджа... нафига бы они были нужны если бы можно было вот так просто присвоить...).
Сергей М. (2007-08-29 08:53:00) [3]Прокомментируй глубину своей творческой мысли - хранить в БД указатель..