Скачки по коду.

← →
voe (2007-04-06 09:14) [0]

Подскажите как мне сделать переход из одного цикла в другой.
т.е. Сначала отрабатывается однин цикл далее следует второй - но при при определенных условиях мне нужно из второго цикла(не завершая его(неотрабатывая его до конца)) перейти вначало перевого.

← →
Steep © (2007-04-06 09:15) [1]

Пиши процедуры

← →
SergGG © (2007-04-06 09:30) [2]

Continue

← →
SergGG © (2007-04-06 09:50) [3]

Смотря какой код, можно использовать:
меткe - label
continue Break
и т.д. и т.п.
Напиши код!!!

← →
Правильный Вася (2007-04-06 11:01) [4]

пометкам между циклами - бред!

← →
ЮЮ © (2007-04-06 11:10) [5]

> Сначала отрабатывается однин цикл далее следует второй
> - но при при определенных условиях мне нужно из второго
> цикла(не завершая его(неотрабатывая его до конца)) перейти
> вначало перевого.

Второй - это вложенный в первый, или далее по коду после первого?

← →
voe (2007-04-06 11:11) [6]

procedure TForm1.BitBtn1Click(Sender: TObject); var f: TextFile; // ôàéë fName: String; // èìÿ ôàéëà a:integer; one:string; begin fName := LabeledEdit1.Text; AssignFile(f, fName); Reset(f); // îòêðûòü äëÿ ÷òåíèÿ if IOResult <> 0 then begin end; a:=0; while not (EOF(f)) do begin read(f, buf); if buf= ":" then begin a:=a+1; if a>3 then begin if (buf=" ") or (buf=":") then begin read(f, buf); end; while not EOLN(f) do begin read(f, buf); if buf="," then begin Тут мне надо вернутся в самое начала цикла там где проверяется конец файла end else begin one:=one+buf; label2.Caption:=buf; end; end; end; end; // Memo1.Lines.Add(buf); // äîáàâèòü ñòðîêó â ïîëå Memo1 // end; end; CloseFile(f); // çàêðûòü ôàéë end;

← →
Steep © (2007-04-06 11:17) [7]

класное форматирование %)
Составь на листочке тот алгоритм что тебе нужен и потом уже делай

procedure TForm1.BitBtn1Click(Sender: TObject); var f: TextFile; // oaee fName: String; // eiy oaeea a:integer; one:string; begin fName := LabeledEdit1.Text; AssignFile(f, fName); Reset(f); // ioe?uou aey ?oaiey if IOResult <> 0 then begin end; a:=0; while not (EOF(f)) do begin read(f, buf); if buf= ":" then begin a:=a+1; if a>3 then begin if (buf=" ") or (buf=":") then begin read(f, buf); end; while not EOLN(f) do begin read(f, buf); if buf="," then break else begin one:=one+buf; label2.Caption:=buf; end; end; end; end; end; CloseFile(f); // cae?uou oaee end;

> Тут мне надо вернутся в самое начала цикла там где проверяется
> конец файла

Алгоритм твой никуда не годится - "скачки" в тело цикла приведут к полной катастрофе.

> voe (06.04.07 11:11) [6]
Что то Вы тут намудрили. См. [7]

Скачки по коду. Найти похожие ветки