¿Cómo leer el texto TXT línea por línea y mostrarlo en el cuadro de edición?

. Ventana Assembly_Launch

Variable de ensamblaje Q_Count, número entero

.Subroutine_Button1_Clicked

.Variable local Número J_Text, número entero

Variable local J_host_text, tipo de texto

J_text_number = abrir archivo ("1.txt", , )

. Si es verdadero (Q_count < 1)

Q_count = 1

. Finalizar si es verdadero

.La primera línea del ciclo de conteo (Q_Count, )

J_Memory_Text = Leer una línea (número J_Text)

.Finalizar el ciclo de conteo ()

Cuadro de edición 1.content = J_Text

Q_Count = Q_Count + 1

Cerrar el archivo (número J_Text)

.