~~~~~~~~~~~~~~~~~~~~~~~~~
Function GetBlobSize(Field: TBlobField): Longint;
begin
with TBlobStream.Create(Field, bmRead) do
try
Result := Seek(0, 2) ;
finally
Free;
end;
end;
{ Usage: }
procedure TForm1.Button1Click(Sender: TObject) ;
begin
{This sets the Edit1 edit box to display the size of}
{a memo field named Notes.}
Edit1.Text := IntToStr(GetBlobSize(Notes)) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Path Shortener: c:\AB\C...DE\F.ghi
« TMemo printing
