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

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

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

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

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

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

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?

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