| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Скачки по коду.
voe © (2007-04-06 09:14:00)Подскажите как мне сделать переход из одного цикла в другой.
т.е. Сначала отрабатывается однин цикл далее следует второй - но при при определенных условиях мне нужно из второго цикла(не завершая его(неотрабатывая его до конца)) перейти вначало перевого.
SergGG (2007-04-06 11:23:00) [1]> voe (06.04.07 11:11) [6]
Что то Вы тут намудрили. См. [7]
Сергей М. (2007-04-06 11:22:00) [2]
> Тут мне надо вернутся в самое начала цикла там где проверяется
> конец файла
Алгоритм твой никуда не годится - "скачки" в тело цикла приведут к полной катастрофе.
ЮЮ (2007-04-06 11:21:00) [3]
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;
Steep (2007-04-06 11:17:00) [4]класное форматирование %)
Составь на листочке тот алгоритм что тебе нужен и потом уже делай
voe (2007-04-06 11:11:00) [5]
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;
ЮЮ (2007-04-06 11:10:00) [6]> Сначала отрабатывается однин цикл далее следует второй
> - но при при определенных условиях мне нужно из второго
> цикла(не завершая его(неотрабатывая его до конца)) перейти
> вначало перевого.
Второй - это вложенный в первый, или далее по коду после первого?
Правильный Вася (2007-04-06 11:01:00) [7]пометкам между циклами - бред!
SergGG (2007-04-06 09:50:00) [8]Смотря какой код, можно использовать:
меткe - label
continue
Break
и т.д. и т.п.
Напиши код!!!
SergGG (2007-04-06 09:30:00) [9]
Continue
Steep (2007-04-06 09:15:00) [10]Пиши процедуры
| |
