Campo Memo

[Scooby]

Olá Caros Garimpeiros e FiveManiac´s

Como eu faço para determinar em um campo memo, quantos caracteres tem em uma linha. Por que eu tenho o seguinte proposito com isso...Quando eu mando imprimir um relatório e eu determino que o maximo de caracteres a serem impressos são 100, e o usuario escreve somente 60 e da um ENTER, ficam faltando 40 caracteres, so que a função que eu uso vai pegando das proximas linhas do campo memo sem respeitar o enter que foi dado.

Exemplo.

Col:=102

For vLinha=1 To MlCount(vCadOse[14],Col-1,3,.T.)

msginfo(MemoLine(OemToAnsi(vCadOse[14]),Col-1,vLinha,3,.T.))

Next

[eajunior]

Ola, verifique se a linha esta em branco e de um EXIT em seu FOR/NEXT

nMax := MlCount( vCadOse[14 )

FOR Ni :=1 TO nMax

cTexto := MemoLine( vCadOse[14], 60 )

IF Empty( cTexto )

EXIT

ELSE

msginfo(MemoLine( cTexto ))

ENDIF

NEXT nI

Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer.

Elias Abrão Júnior

Fone : (0**11) 5181-6909 São Paulo - SP

eajunior.fw@terra.com.br

xHarbour 0.99.0 - Fivewin 2.5 e xMate