Desplácese fácilmente por el contenido del cuadro de edición de idioma

. Se hace clic en la subrutina _Botón1_. Variable local i, número entero

. Determine el encabezado del bucle (verdadero)

Cuente la primera vez en el bucle (20,)

Editbox1.content = " " Editbox1.content

Retraso. (200)

.Fin del bucle de conteo ()

.Primero bucle variable (20, 1, -1, i)

Editbox1.Content = Reemplazo de subtexto (Editbox1. Contenido, " ", " ", i, 1, verdadero)

Retraso (200)

Cola de bucle variable ()

. la cola del bucle ( )

Esto se hace en un bucle con un alto uso de CPU, y lo siguiente se hace en un reloj con un bajo uso de CPU

. Versión 2

. Conjunto de ventana de ensamblaje 1

Variable de ensamblaje i, entero

. Variable ensambladora k, entero

Evento subrutina _clock1_cycle

i = i 1

Editbox1.content = " " editbox1.content

.Si es verdadero (i > 20)

Reloj 1. Periodo de reloj = 0

i = 0

Reloj 2. Periodo de reloj = 500

k = 20

.Finalizar si es verdadero

.Evento de subrutina _clock2_cycle

.Variable local x, entero

k = k - 1

Editbox1.content = Reemplazo de subtexto (editbox1.content, " ", " ", k, 1, verdadero)

. Si es verdadero (k = -1)

Reloj 1.período de reloj = 500

Reloj 2.período de reloj = 0

.Finalizar si es verdadero

.Subrutina __Ventana de inicio_ creada

k = 20

El número específico de ciclos se puede depurar lentamente de acuerdo con el ancho del cuadro de edición. Estos dos métodos son métodos estúpidos. ¡No es perfecto!