Assignment to FOR-Loop variable n

← →
RX (2005-12-08 01:14) [0]

помогите с циклом! subj выдаётся

for n:=1 to ssize do {цикл}
begin
comp:=comp+stack[ssize-n];
if comp=gramrules[m] then {условие}
begin
Result:=Result+" "+inttostr(m);
for o:=1 to n do stack[ssize-o]:="";
stack[ssize-n]:="E";
comp:="";
cnt:=cnt+1;
break;
end;
n:=n+1;
end;

я хочу наращивать счётчик если не вхожу по условию
а если условие выполняется то выйти из цикла

← →
Reindeer Moss Eater © (2005-12-08 01:17) [1]

Счетчик самому изменять запрещено законом.
Выйти из цикла - Break

← →
RX (2005-12-08 01:20) [2]

break то я уже написал если ты не заметил а вот счётчик не работает
как быть то с алгоритмом?

← →
Джо © (2005-12-08 01:21) [3]

> [2] RX (08.12.05 01:20)
> как быть то с алгоритмом?

Выбросить. Или, как минимум, объяснить, что он делает.

← →
RX (2005-12-08 01:22) [4]

Удалено модератором

← →
Reindeer Moss Eater © (2005-12-08 01:22) [5]

Значение счетчика самому менять нельзя.

← →
Джо © (2005-12-08 01:23) [6]

> [4] RX (08.12.05 01:22)
> он ведь сам это того?

Типа того, дружище.

Ничего не ясно, но может нужно использовать Continue

Delphi 7 Help:
Continue Allows the flow of control to proceed to the next iteration of for, while, or repeat statements. Unit System Category flow control routines Delphi syntax: procedure Continue; Description In Delphi code, the Continue procedure causes the flow of control to proceed to the next iteration of the enclosing for, while, or repeat statement. The compiler reports an error if a call to Continue isn"t enclosed by a for, while, or repeat statement. Note: Continue does not violate the flow of control dictated by a try..finally construct. If a call to Continue causes control to leave the try clause, the finally clause is entered.

Удалено модератором
Примечание: И не цитируем

Чудаки еще впереди, когда до сдачи останется день или менее.

Assignment to FOR-Loop variable n Найти похожие ветки