Lê arquivo de texto para o MEMOEDIT..
MEMOSEEK (<variável>, <chave> = <valor>)
A função MEMOSEEK() lê o arquivo de dados atual e carrega a variável indicada no 1º parâmetro, para ser editada pela função MEMOEDIT().
O arquivo deve ter dois itens, o 1º. é a <chave>. e o 2º. é um campo tipo u<n> onde <n> é o tamanho de cada linha de texto.
No esquema, o arquivo-texto tem que ser do tipo r e pode ser definido como:
nome: textos r
cod(0) n03 <<Chave de acesso>>
linha u60 <<Linhas de texto associadas a chave>>
O exemplo a seguir mostra-nos como utilizar estas funções.
select c
use textos
private a (200)
if. not. memoseek (a,cod = 1)
? "erro"
endif
a = memoedit (a,10,10,20,30)
if not. memosave (a,cod = 1)
? "erro"
endif
MEMOEDIT(), MEMOFILE(), MEMOLINE(), MEMOREAD(), MLCOUNT(), MEMOSAVE().