Извините, но приходится еще раз задать этот вопрос, не получается все никак по нормальному сделать! Помогите пожалуйста!
Man In Red © (2001-12-22 21:08:00)
Извините, но приходится еще раз задать этот вопрос, не
получается все никак по нормальному сделать!
Вот решил сказать какой вообще алгоритм нужен:
Значит все как обычно – есть Richedit1, Richedit2, и Timer.
В Richedite1 есть какой-то текст. Таймер каждую секунду
выделяет по порядку по одному символу в Richedite1, если выделенный
символ является символом переноса то в Richedite2 каретка переходит
на новую строку, а если нет, то выделенный символ копируется и
вставляется в Richedit2. Как только символы в Richedite1
заканчиваются, то есть, если за выделенным символом уже текста
нету, то таймер останавливается!
В конечном итоге после запуска такого таймера, как только он
все символы по порядку скопирует и повставляет в RichEdit2, текст в
Richedite2 будет абсолютно соответствовать тексту в Richedite1!
Пожалуйста, помогите написать такой алгоритм.
Заранее благодарен!
MBo (2001-12-23 09:38:00) [1]
var j:integer; //глобальная
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if j<length(richedit1.text) then begin
inc(j);
richedit2.text:=richedit2.text+richedit1.Text[j];
if (richedit1.Text[j]=#13) and (j<length(richedit1.text))
then begin
inc(j);
richedit2.text:=richedit2.text+#10;
end;
end;
end;
Наверх 
ЧАТ |
Орешник |
|
