* В Примере 1 ищется первое вхождение символьной строки в memo-поле, а
* затем на экран выводятся имя и фамилия служащего и строка с memo
*-полем для этой записи.

* В Примере 2 демонстрируется, как ширина memo-поля влияет на ATLINE( ).

* Example 1

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE employee && Open employee table

CLEAR

STORE 'Japanese' TO gcFindString && Case sensitive

LOCATE FOR ATLINE(gcFindString, notes) != 0

? First_Name

?? Last_Name

? MLINE(notes, ATLINE(gcFindString, notes))

* Example 2

STORE '1234567890ABCDEFGHIJ' TO gcString

SET MEMOWIDTH TO 20

? ATLINE('AB', gcString) && Displays 1

SET MEMOWIDTH TO 10

? ATLINE('AB', gcString) && Displays 2