Adicionar texto em editor

Discussão em 'Comandos Básicos' iniciado por fdantas, Março 13, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Código:
    DEF VAR X AS LOGICAL.
DEF VAR ED-TEXTO AS CHAR FORMAT "X(1000)"
    VIEW-AS EDITOR SIZE 60 BY 10 SCROLLBAR-VERTICAL.
DEF FRAME A
    ED-TEXTO.    
CREATE EXEMPLO.
DISPLAY ED-TEXTO.
ASSIGN EXEMPLO.COD-EXE = "teste.p".
x = ed-texto:INSERT-FILE("teste.p").
ASSIGN EXEMPLO.TEXTO = ED-TEXTO:SCREEN-VALUE.
    fdantas, Março 13, 2009
    #1

Compartilhe esta Página