Скачать: CL | DM;

Как пихнуть файл типа Tbitmap в record?   Найти похожие ветки 

← →
-----------------   (2003-01-18 13:05) [0]

---

← →
Думкин ©   (2003-01-18 13:13) [1]

что-то пороху мало - пойду я домой - хотя тут скоро весело будет.

---

← →
gsu ©   (2003-01-18 13:38) [2]

картинку глубоко и надолго можно пихнуть в blob поле, загрузив ее из потока

---

← →
kaif ©   (2003-01-18 14:17) [3]

type
TBitmapRecord = record
Bitmap: TBitmap
end;

var
MyBitmapRecord: TBitmapRecord;

procedure LoadBitmapToBitmapRecord(const FileName: string);
begin
MyBitmapRecord.Bitmap.LoadFromFile(FileName);
end;

initialization
MyBitmapRecord.Bitmap := TBitmap.Create;
finalization
MyBitmapRecord.Bimap.Free;
end;

:)))))))))
Только зачем все это нужно пихать в record?

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c