Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.10;
Descargar: [xml.tar.bz2];

abajo

Lo siento, pero tengo que volver a hacer esta pregunta, ¡es imposible hacer todo de una manera normal! ¡Ayuda por favor! Encontrar ramas similares


Man In Red   (2001-12-22 21:08) [0]

Lo siento, pero tengo que hacer esta pregunta nuevamente, ¡no puedo hacer nada de la manera normal!
Entonces decidí decir qué tipo de algoritmo se necesita:
Entonces, todo es como siempre: hay Richedit1, Richedit2 y Timer.
Hay texto en Richedite1. El temporizador cada segundo selecciona un carácter a la vez en Richedite1, si el personaje seleccionado es un personaje de acarreo, entonces en Richedite2 el carro va a una nueva línea, y si no, el personaje seleccionado se copia y se pega en Richedit2. Tan pronto como los caracteres en Richedite1 terminan, es decir, si no hay texto detrás del carácter seleccionado, ¡el temporizador se detiene!
Finalmente, después de iniciar dicho temporizador, tan pronto como copie e inserte todos los caracteres en orden en RichEdit2, ¡el texto en Richedite2 coincidirá absolutamente con el texto en Richedite1!
Por favor, ayuda a escribir tal algoritmo.
Gracias de antemano!



MBo   (2001-12-23 09:38) [1]

var j: entero; // global

procedimiento TForm1.Timer1Timer (Sender: TObject);
comenzar
si j <length (richedit1.text) entonces comienza
inc (j);
richedit2.text: = richedit2.text + richedit1.Text [j];
if (richedit1.Text [j] = # 13) y (j <length (richedit1.text)) entonces comience
inc (j);
richedit2.text: = richedit2.text + # 10;
fin;
fin;
fin;



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.10;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.55 MB
Tiempo: 0.012 c
3-28432
Viento salvaje
2001-12-07 10:48
2002.01.10
El curioso comportamiento de unión todo en SQL a través de BDE.


1-28478
tovSuhov
2001-12-22 13:47
2002.01.10
¿Cómo ListView?


6-28526
Perro Diamante
2001-10-14 17:21
2002.01.10
Deshabilitar la computadora a través de la red.


1-28470
Jankindoll
2001-12-21 20:07
2002.01.10
¿Cómo ver que el personaje resaltado en Richedite es un personaje carry o no?


1-28501
abandonar
2001-12-23 16:23
2002.01.10
Etiquetas en jpg, bmp it.d.





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español