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

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

* Example 1

CLOSE DATABASES

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

USE employee && Open employee table

CLEAR

STORE 'JAPANESE' TO gcFindString && Case insensitive

LOCATE FOR ATCLINE(gcFindString, notes) != 0

? First_Name

?? Last_Name

? MLINE(notes, ATCLINE(gcFindString, notes))

* Example 2

STORE '1234567890ABCDEFGHIJ' TO gcString

SET MEMOWIDTH TO 20

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

SET MEMOWIDTH TO 10

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