Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

Извините, но приходится еще раз задать этот вопрос, не получается все никак по нормальному сделать! Помогите пожалуйста! 


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

Извините, но приходится еще раз задать этот вопрос, не получается все никак по нормальному сделать!
Вот решил сказать какой вообще алгоритм нужен:
Значит все как обычно – есть Richedit1, Richedit2, и Timer.
В Richedite1 есть какой-то текст. Таймер каждую секунду выделяет по порядку по одному символу в Richedite1, если выделенный символ является символом переноса то в Richedite2 каретка переходит на новую строку, а если нет, то выделенный символ копируется и вставляется в Richedit2. Как только символы в Richedite1 заканчиваются, то есть, если за выделенным символом уже текста нету, то таймер останавливается!
В конечном итоге после запуска такого таймера, как только он все символы по порядку скопирует и повставляет в RichEdit2, текст в Richedite2 будет абсолютно соответствовать тексту в Richedite1!
Пожалуйста, помогите написать такой алгоритм.
Заранее благодарен!



MBo   (2001-12-23 09:38) [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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.024 c
1-28488           ilysha                2001-12-20 10:00  2002.01.10  
В дочерних окнах из DLL не работают


1-28470           JankinDoll            2001-12-21 20:07  2002.01.10  
Как посмотреть выделенный символ в Richedite является символом переноса или нет?


1-28449           Knyaz17               2001-12-21 11:47  2002.01.10  
Как наследовать метод не родителя, а родителя родителя?


4-28553           Евгений               2001-11-07 15:11  2002.01.10  
Как ограничить доступ к каталогам для пользователей?


1-28476           Пл.                   2001-12-22 09:42  2002.01.10  
SaveDialog