VIEW-AS EDITOR

Discussão em 'Comandos Básicos' iniciado por fdantas, Fevereiro 3, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Código:
    DEF VAR CONT AS INTEGER FORMAT "9999".
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.    
REPEAT:
    CONT = CONT + 1.
    CREATE EXEMPLO.
    DISPLAY ED-TEXTO.
    ASSIGN EXEMPLO.COD-EXE = "EXE123.P".
    x = ed-texto:INSERT-FILE("C:\teste.P").
    ASSIGN EXEMPLO.TEXTO = ED-TEXTO:SCREEN-VALUE.
    PAUSE 0.
    IF X = NO THEN LEAVE.
END.
    fdantas, Fevereiro 3, 2009
    #1

Compartilhe esta Página