Возвращает количество строк текста в Полях типа Memo, или в символьных строках.

MEMLINES(MemoFieldName)

Параметры

MemoFieldName

Определяет имя Поля типа Memo. Если данное поле открыто не в текущей рабочей области, то можно указывать полное имя рассматриываемого объекта: например, как Alias.Field

Expand imageВозвращаемое значение

Числового типа (Numeric)

Expand imageКомментарии

Количество текстовых строк в заданном Поле типа Memo существенно зависит от текущей установки команды SET MEMOWIDTH.

Expand imageПример

В представленном ниже примере: обрабатываются (сканируются) некоторые записи из таблицы  employee; с помощью функции MEMLINES( ) определяется, есть ли текст в соответствующих полях записей notes, и сколько строк текста в них имеется, для того, чтобы определить момент Прогона Страницы (Eject). Выводится значение поля Last_name вместе с соответствующими Примечаниями (если они есть), или выводится соответствующий комментарий: что примечаний Нет.

  CopyCode imageКопировать Код
CLOSE DATABASES
CLEAR
SET TALK OFF
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE employee && Open Employee table

SET MEMOWIDTH TO 65
gnLine = 1
GOTO 2
SCAN NEXT 3
 gnMemoSize = MEMLINES(notes)
 IF gnMemoSize = 0
 STORE .T. TO glNoMemo
 STORE 1 TO gnMemoSize
 ELSE
 STORE .F. TO glNoMemo
 ENDIF
 IF gnLine + gnMemoSize > 65
 EJECT
 gnLine = 1
 ENDIF
 @ gnLine,2 SAY 'Last Name: '+ last_name
 gnLine = gnLine +1
 @ gnLine ,2 SAY 'Notes: ' 
 ?? IIF(glNoMemo, 'No notes ',notes)
 gnLine = gnLine + gnMemoSize + 2
 IF gnLine > 24
 gnLine = 1
 CLEAR
 ENDIF
ENDSCAN

Expand imageСм. также