function IsMemoField(dbf, f :integer): integer;

IsMemoField returns a non-zero value (1) for memo fields.


var
  dbf :integer;
  n :integer;
begin
  dbf := OpenBase( 'filename.dbf' );
  if dbf <> 0 then
  begin
    n := FieldNumber(dbf, 'INFO');
    if n >= 0 then
       if IsMemoField(dbf, n) then 
          showmessage( 'It is a memo.' );
    CloseBase(dbf);
  end;
end.