ProcuraEnter

Esta função Procura um caractrer que indica "enter" ou nova linha(#13 ou #10) em uma string e retorna a string antes do primeiro enter, e o restante da string original, em variáveis separadas.

Sintaxe: ProcuraEnter(Alfa StrProcura, alfa end StrImp,alfa end StrResto) ;

Parâmetros:

Nome Tipo Descrição
StrProcura   String na qual será procurada o enter ou nova linha (#13 ou #10).
StrImp   A Primeira parte da string procurada, até o primeiro caracter que indica nova linha (retorno).
StrResto   O Restante da string, depois do primeiro caracter que indica nova linha (retorno).

Tipo de retorno:

Exemplo: Um exemplo de sua utilização é nas observações de Notas Fiscais;

Definir Alfa StrProcura;

Definir Alfa StrImp;

Definir Alfa StrResto;

ProcuraEnter(StrProcura, StrImp, StrResto);

Utilização da Função (dependentes): Nenhum dependente.

Observações: Para imprimir cada obs separada por enter basta mandar imprimir a variável StrImp e depois procurar sempre pela StrResto.

Este artigo ajudou você?