Ler linhas de um campo CHAR

quebra de linha no progress é o chr(10) então

Código:

define contador as integer no-undo.


repeat contador = 1 to num-entries(conteudo, chr(10)):
    disp entry(contador,conteudo, chr(10)).
end.

Supondo que a quebra de linha seja CHR(13) então

Código:

DEF VAR texto AS CHAR.
DEF VAR xi AS INTEGER.

texto = "Gavião - BA" + CHR(13) +
        "Capim Grosso - BA" + CHR(13) +
        "Quixabeira - BA" + CHR(13) +
        "Serrolandia - BA" + CHR(13) +
        "Várzea do Poço - BA" + CHR(13) +
        "Jacobina - BA".

Bloco:
DO WHILE TRUE:
   DO ON ERROR UNDO, LEAVE:
   
      xi = xi + 1.
      MESSAGE ENTRY(xi,texto,CHR(13))
          VIEW-AS ALERT-BOX INFO BUTTONS OK.
   
      CATCH erro AS Progress.Lang.ProError: /* Executa somente quando ocorre erro Progress */
         LEAVE Bloco.
      END CATCH.
      FINALLY: 
      END FINALLY. 
   END.
END.

Se não trazer 1 por 1, use o CHR(10) ou outro caracter de quebra de linha.

o correto não é usar TRY...CATCH
Use a função NumEntry que postei no Procedures e Funções Uteis para fazer um DO xi = 1 to NumEntry(texto,CHR(13))

Abraço

Rafael

Não conhecia a função NUM-ENTRIES... e olha que cacei ela, acabei fazendo uma, rsrsrs

eu digo chr(10) porque é o padrão do progress, se vc abre um campo com view-as text e dá ENTER, o progress coloca CHR(10).