Определить, сколько по времени читали текст

Posted by micher under Delphi

Есть форма, есть кнопки с названием разделов, есть ричэдит. При нажатии на кнопку подгружаем файл в ричэтид. Юзер его читает, потом выбирает другой раздел, при этом меняется только путь к файлу и он видит другой текст. Как определить, сколько времени читал текст юзер до перехода в другой раздел? Если бы каждый раздел был в новой форме, проблем бы не было, просто событие onclose или подобное.

Алексей_2012

Кидаем Ttimer на форму, в раздел объявления глобальных переменных пишем

var

  secc,minn:Integer;

  mks1:string[255]='';

Дважды кликаем на таймер и пишем это:

if secc < 59

    then inc(secc)

    else begin

      secc :=0;

      inc(minn);

    end;

    mks1:=IntToStr(min)+':';

  if secc<10 then  mks1:= mks1 +'0'+ IntToStr(secc)

    else  mks1:=mks1 + IntToStr(secc);

Далее например пишем обработчик для кнопки "Читать текст" в нем запустим таймер (Timer2.Enabled:=true; ), а по другой кнопки, например "Завершить" можно написать так:

timer2.enabled:=false;

richedit1.lines.add(mks1);

тема на форуме

Похожие статьи

• Вставка символа Unicode в RichEdit в Delphi 7
• RichEdit и выгрузка в RTF-файл (добавление в конец файла)
• Как вставить перевод строки #10#13 в текст RichEdit?
• Координаты коретки RichEdit
• Верхний и нижний отступ RichEdit
• Найти и раскрасить нужное слово в RichEdit
• После загрузки файла в RichEdit подобрать ширину по содержимому
• Выделить строку RichEdit жирным
• Анимация на форме используя таймер
• Пример работы с таймером в delphi