Советы по Delphi

         

Показ Memo-поля в Dbgrid


...я все же лелею надежду, что когда-нибудь увижу TMemoField.DataSize, имеющим значение, отличное от нуля. Может быть значение DataSize является размером части Memo, которая сохранилась в .db-файле? Вместо этого я теперь пользуюсь объектом TBlobStream, который вполне хорошо справляется с этой работой. Все это у меня происходит примерно так:

    Var
pBuffer  : PChar ; Blob  : TBlobStream ; begin
{FDataField - это TMemoField} Blob := TBlobStream.Create( FDataField, bmRead ) ; try if Blob.Size > 0 then try GetMem( pBuffer, Blob.Size ) ;

Blob.Read( pBuffer^, Blob.Size ) ; {                        что-то тут делаем    }
FreeMem( pBuffer, Blob.Size ) ; except ShowMessage( 'Нехватка памяти' ); end ; finally Blob.Free end ;

[001505]



Содержание раздела