VPF::беда с Timer - Форум программистов

kazilop

Дата 1.2.2009, 01:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 25.7.2006

Репутация: нет
Всего: нет

Код


procedure TForm3.Button2Click(Sender: TObject);
var
str, urll, portt: string;
i,p,leng,ttt : integer;
//ttt:TTimer;

begin

//ttt:=TTimer.Create;
num := Memo1.Lines.Count;
Edit1.Text:=IntToStr(num);
i:=0;
while i<num do begin

str:=Memo1.Lines.Strings[i];
//Edit2.Text:=str;
Timer1.Enabled:=true;
Timer1.Interval:=(5000);
Timer1.Enabled:=true;

leng:=length(str);
p:=pos(':',str);
ttt:=leng-p;
urll:=copy(str,0,p-1);
portt:=copy(str,p+1,leng-p+1);
Edit2.Text:=urll;
edit3.Text:=portt;

i:=i+1;
end;

вставляю такой код, и таймер не тормозит процесс :( нужно чтобы строчки по 1 выводил с небольшим интервалом
а пролетает сразу все :( как притормозить ?

THandle

Дата 1.2.2009, 01:23 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

kazilop, не очень понял твой код, но я в нем не увидел OnTimer'а. А ведь именно в этом событии нужно выводить...
Создай обработчик события и в нем каждые Interval выводи по одной строке.

kazilop

Дата 1.2.2009, 01:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 25.7.2006

Репутация: нет
Всего: нет

так вот как OnTimer привязать к этому коду ? что то не получается у мну

Данкинг

Дата 1.2.2009, 01:29 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(kazilop @ 1.2.2009, 01:18

)

как притормозить ?

Повесить вывод строчек на таймер. smile

--------------------

There's nothing left but silent epitaphs.

Akella

Дата 1.2.2009, 01:41 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

может в таймере повесить

Код

application.processmesseges

THandle

Дата 1.2.2009, 01:44 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

kazilop, кинь на форму компонент TTimer, щелкни по нему 2 раза. В появившемся обработчике пиши код на вывод одной строчки.

kazilop

Дата 1.2.2009, 01:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 25.7.2006

Репутация: нет
Всего: нет

код можете показать ? что-то туплю я :(

Добавлено через 40 секунд
THandle, спс, сейчас попробую

Добавлено через 5 минут и 22 секунды
все получилось, всем спасибо !

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »