Eliminar contenido numérico duplicado en el cuadro de edición

.Versión 2

.Especificación de biblioteca de soporte

.Variable local Texto, tipo de texto

.Variable local Buf, tipo de texto

Matriz de texto de variable local, tipo de texto, "0"

. Variable local i, tipo entero

. Variable local asc, entero

Texto = EditBox1.

Buf = tomar texto en blanco (tomar longitud del texto (texto) × 2)

CallWindowProcA ({ 87, 139, 124, 36, 16, 51, 192, 51, 201, 56, 7, 116, 54, 86, 139, 116, 36, 24, 138, 20, 56, 128, 250, 127, 118, 9, 136, 20, 49, 131, 192, 1, 131, 193, 1, 138, 20, 56, 136, 20, 49, 131, 193, 1, 198, 4, 49, 32, 131, 192, 1, 131, 193, 1, 128, 60, 56, 0, 117, 214, 198, 4, 49, 0, 94, 95, 195, 139, 84, 36, 20, 136, 4, 17, 95}, Window1.fetchWindowHandle (), 1025, Texto, Buf)

Matriz de texto = Texto dividido (Buf, " ", )

Calcule el primer bucle (obtenga el número de miembros de la matriz (matriz de texto), i)

.Si es verdadero (buscar texto(editbox2.content, matriz de texto[i], , false) = -1)

asc = obtener código(matriz de texto[i], 1)

depurar salida(asc, matriz de texto[i])

. Si es verdadero (asc ≥ 48 y asc ≤ 57)

Cuadro de edición 2. Añadir texto (matriz de texto[i])

.Finalizar si es verdadero

.Finalizar si es verdadero

.Calcular la hora de finalización del bucle ()

.Comando DLL CallWindowProcA, entero, "user32.dll", "CallWindowProcA"

.Conjunto de bytes de parámetros, conjunto de bytes

.Identificador de ventana de parámetros, entero

. Tipo de mensaje de parámetro, entero

. Texto de parámetro, tipo de texto

. Parámetro buf, tipo de texto

.