Функция MEMLINES()

Возвращает число строк в 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

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.