[ALexandr555]

Код:

var
CR1: boolean;
begin
if CR1 then begin
parelelPK:= TstringList.Create;
parelelPK.Assign(PK10);
pk10.clear;
conec1:=parelelPK.Count;
shet1:=0;
CR1:=false;
end;

тупой вопрос но все же, выполнится ведь это в тамере 1 раз?)

[v1s2222]

Это выполниться 1 раз. Но другой вопрос: зачем это сувать в таймер? Не легче создать хоть процедурой и вызывать когда надо?

[ALexandr555]

спасибо делаю уже по другому

[M.A.D.M.A.N.]

Тебе можно книгу писать "Китайское программирование".

[ALexandr555]

да думаю еще можно) если что код не весь то ж)

[PhoeniX]

Сообщение от M.A.D.M.A.N.

"Китайское программирование"

Индийское скорее...

[ALexandr555]

Индус в первую очередь просто не владеет средствами языка в достаточной мере и пользуется теми, про которые успел прочитать, комбинируя их в жутких сочетаниях.

не отрецаю, еще присуще мне)
ладно не офтопим)

[NumLock]

а этот код:

Код:

var
CR1: boolean;
begin
if CR1 then begin
parelelPK:= TstringList.Create;
parelelPK.Assign(PK10);
pk10.clear;
conec1:=parelelPK.Count;
shet1:=0;
CR1:=false;
end;

это обработчик события OnTimer или что-то еще? как-то странно проверять значение переменной CR1 не инициализировав ее и ждать выполнения условия один или несколько раз. тут ведь как повезет после объявления локальной переменной: если текущее значение ячейки памяти будет не ноль, при каждом срабатывании таймера, то условие будет выполняться много раз, если ноль, то ни разу

[Страдалецъ]

В описании проги будет написано:
...особенностью программы является наличие вшитого в код генератора псевдослучайного ветвления...

[ALexandr555]

Код:

var
CR1: boolean;
begin
if CR1 then begin
parelelPK:= TstringList.Create;
parelelPK.Assign(PK10);
pk10.clear;
conec1:=parelelPK.Count;
shet1:=0;
CR1:=false;
end;

да все все не использую этот свой "кал") по другому делаю)