Возвращает число строк в memo-поле.
Синтаксис:
MEMLINES(MemoFieldName)
Параметры:
MemoFieldName
Задает имя memo-поля. Если memo-поле находится в таблице, которая не открыта в текущей рабочей области, поставьте перед его именем псевдоним таблицы с точкой.
Результат:
Числовой.
Комментарии:
Число строк в memo-поле определяется текущей установкой SET MEMOWIDTH.
Пример:
* В следующем примере программа просматривает три записи таблицы * employee, а затем с помощью функции MEMLINES( ) определяет, есть ли * данные в memo-поле notes и когда нужно переходить на новую страницу. * Появляется содержимое поля last_name данной записи вместе с * содержимым поля notes (если оно непустое) или с сообщением, * извещающим, что для данной записи никаких примечаний из поля notes * не будет. CLOSE DATABASES CLEAR SET TALK OFF CLOSE DATABASES OPEN DATABASE (HOME( ) + 'samples\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