Текущий архив: 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
