Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ошибки с циклом, delphi 5 
:(
    Опции темы
Dr.No_xXx
Дата 5.4.2005, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Привет всем.У меня проблема которую не получается решить
если можете помогите пожалуйста smile
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Edit1: TEdit;
    Timer1: TTimer;
    Label1: TLabel;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

var
i,p,e:longint;
n:integer;

procedure Povtor;
begin
form1.timer1.interval:=30000;
i:=i+1;
if i=100000 then i:=0;
end;

procedure password;
begin
for i:=0 to 100000 do begin
n:=0;
while n<1 do
begin
povtor;
end;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
application.terminate;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
edit1.visible:=true;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
e:=strtoint(edit1.text);
if e=i then showmessage('You are Right') else close;
end;

end.
PM MAIL   Вверх
Satana
Дата 5.4.2005, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
ну у тебя будет вечный цикл, поскольку
Код

while n<1 do
begin
povtor;
end;


n у тебя будет всегда меньше 1, оно у тебя больше нигде не употребляется.


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Dr.No_xXx
Дата 5.4.2005, 14:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Так мне и нужен вечный цикл.Объясняю.I меняется каждые 30сек пока не закрывается прога.Переменная Е-пароль.Надо чтобы при условии I=E выполнялось действие.Теперь ошибки.
1)[Warning] Unit1.pas(47): For loop control variable must be simple local variable
2)[Error] Unit1.pas(55): Statement expected but 'PROCEDURE' found
PM MAIL   Вверх
Satana
Дата 5.4.2005, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
ну так бы и написал тогда вот ответ
в процедуре password добавь один end и в ней же объяви переменную n должно все заработать


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Dr.No_xXx
Дата 5.4.2005, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
неа
For loop control variable must be simple local variable
осталась

Добавлено @ 15:07
+ ie convert error
PM MAIL   Вверх
Bes
Дата 5.4.2005, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 5
Всего: 7
Да че, неа-то? Варнинг не еррор. Просто компилятор не такой умный как ты, вот и предупреждает на всякий случай.
PM MAIL   Вверх
Петрович
Дата 5.4.2005, 15:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55
Цитата(Dr @ 5.4.2005, 15:45)
1)[Warning] Unit1.pas(47): For loop control variable must be simple local variable

Предупреждение о том что в качестве переменной цикла используется глобальная переменная. Это не рекомендуется. поскольку ее значение после выполнения цикла считается не определенным.

Цитата(Dr @ 5.4.2005, 15:45)
2)[Error] Unit1.pas(55): Statement expected but 'PROCEDURE' found

В процедуре password есть лишний begin, или не хватает end'а.



--------------------
Все знать невозможно, но хочется
PM ICQ   Вверх
Snowy
Дата 5.4.2005, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 192
Всего: 484
Низя использовать одну глобальную переменную i для for и при этом занулять ее в другой процедуре.
ерунда получается - гонишь i фором.
Плюс к этому пытаешься ее инкрементить, да еще и сбрасывать на ноль, до достижения конца цикла.
Низя менять форовскую переменную.
PM MAIL   Вверх
Dr.No_xXx
Дата 5.4.2005, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Почему?
идет цикл,ш присваевается +1 каждуе 30мек,а когда i доходит до 100000 и i обнуляется.
PM MAIL   Вверх
Dr.No_xXx
Дата 5.4.2005, 15:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Вообще это зашита паролем
PM MAIL   Вверх
Satana
Дата 5.4.2005, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
Цитата(Dr @ 5.4.2005, 15:25)
Почему?
идет цикл,ш присваевается +1 каждуе 30мек,а когда i доходит до 100000 и i обнуляется.

потому что ты в цикле работаешь с етой переменной и в этом цикле ты вызываешь еще процедуру в которой та же переменная в цикле используется, тебе компилятор черным по белому пишет, на родном английском языке что для циклов желательно использовать локальные переменные тобишь в процедури объяви раздел var и в нем объяви эту i


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Dr.No_xXx
Дата 5.4.2005, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Тогда подскажи как лучше.Зоздавать вторую переменную? smile
PM MAIL   Вверх
Satana
Дата 5.4.2005, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
Dr.No_xXx хе ну в общем виде так:
procedure <name_procedure>
var
i:integer;
begin
end;
вот эта i и будет локальной переменной, тобишь в каждой процедуре ты можешь создать свою независимую переменную.


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Snowy
Дата 5.4.2005, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 192
Всего: 484
И третью и восемнадчатую.
Используй локальные.
PM MAIL   Вверх
Dr.No_xXx
Дата 5.4.2005, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Не получится.Это должен буть бесконечный цикл в котором e зависит от i
Или дайте пример
smile
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0690 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.