Форум: "Основная";
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];
ВнизИзвините, но приходится еще раз задать этот вопрос, не получается все никак по нормальному сделать! Помогите пожалуйста! Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c