Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

Что значит это сообщение:   Найти похожие ветки 

 
Krusader   (2003-02-26 17:23) [0]

[Warning] Unit1.pas(1): For loop control variable must be simple local variable

Примерно в таком коде:

For n:=x to b do


Спасибо.


 
Reindeer Moss Eater   (2003-02-26 17:25) [1]

Переменная цикла должна быть простой и локальной


 
Smashich ©   (2003-02-26 17:28) [2]

ты очевидно написал что то вроде

procedure F;
var
i:integer;
procedure sF;
begin
...
For i:=1 to 4 do
...
end;
begin
....
sF;
...
end;

а так низя!!!


 
Krusader   (2003-02-26 17:41) [3]

Что-то в этом роде:

Procedure A;
Var
x,
i,
e : Integer;
Begin
x := x+1;
ShowMessage(inttostr(i));
e := 20;
End;

Procedure B;
Begin
For i:=x to e do

End;


Так значит незя, да?
А как же тогда обойти, еще одну переменную?

Спасибо.


 
Smashich ©   (2003-02-26 17:42) [4]

2 Krusader (26.02.03 17:41) агамс


 
Krusader   (2003-02-26 17:42) [5]

ой, не так, вот-так:


Var
x,
i,
e : Integer;


Procedure A;
Begin
x := x+1;
ShowMessage(inttostr(i));
e := 20;
End;

Procedure B;
Begin
For i:=x to e do

End;


 
Krusader   (2003-02-26 17:43) [6]


> Smashich © (26.02.03 17:42)

Но работает же :)


 
Smashich ©   (2003-02-26 17:43) [7]

и так тожа нельзя - в сообщении теж написали
For loop control variable must be SIMPLE LOCAL variable


 
Smashich ©   (2003-02-26 17:44) [8]

2 Krusader (26.02.03 17:43)
это где же и чего у тя работает можна узнать??


 
Krusader   (2003-02-26 17:45) [9]


> Smashich © (26.02.03 17:43)

Это тотже код.


 
Smashich ©   (2003-02-26 17:46) [10]

procedure F;
var
i:byte;
procedure sF;
begin
for i:=0 to 1 do
Beep;
end;

попробуй скомпили;)


 
Krusader   (2003-02-26 17:46) [11]


> Smashich © (26.02.03 17:44)

Я имею ввиду, предупреждение есть, но код та работает нормально...


 
Smashich ©   (2003-02-26 17:48) [12]

где и чего тот же код? ты прочитай внимательно чего я те пишу!

короче! те нужна еще одна переменная - простая и локальная
т.е.
procedure F;
var
i:byte;
procedure sF;
var
j:byte;
begin
for j:=0 to 1 do
Beep;
end;
begin
end;


 
Krusader   (2003-02-26 17:48) [13]


> Smashich © (26.02.03 17:46)

знаю, выходит:

[Error] Unit1.pas(1): For loop control variable must be simple local variable

а у меня:

[Warning] Unit1.pas(1): For loop control variable must be simple local variable

разницу видишь :)
Потому и работает...


 
Krusader   (2003-02-26 17:49) [14]

И без всяких лишних переменных...


 
Krusader   (2003-02-26 17:49) [15]

Но сообщение бесит


 
Smashich ©   (2003-02-26 17:49) [16]

чес слово не знаю где и чего ты там сделал но
procedure F;
var
i:byte;
procedure sF;
begin
for i:=0 to 1 do
Beep;
end;
begin
sF;
end;

не компилиться!!!


 
Smashich ©   (2003-02-26 17:50) [17]

ну если бесит так используй переменую! оно как то без глобальных переменных то понадежнее...


 
Krusader   (2003-02-26 17:51) [18]


> Smashich © (26.02.03 17:49)

Это нет, error выходит, а у меня обсолютно такойже как и error только Warning...
:)))))


 
Krusader   (2003-02-26 17:52) [19]

Прям чат....

Ладно, так сгодится... :)))


 
Smashich ©   (2003-02-26 17:53) [20]

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


 
Krusader   (2003-02-26 17:54) [21]


> Smashich © (26.02.03 17:53)

цыть. знаю.


 
Smashich ©   (2003-02-26 17:59) [22]

чего ж тады развел то муть то здесь? а? круасан?;)


 
Krusader   (2003-02-26 18:03) [23]

уже знаю.
;)



Страницы: 1 вся ветка

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.019 c
1-29930
Jeepston
2003-02-27 11:24
2003.03.10
Delphi+Finereader


4-30179
viper
2003-01-20 21:27
2003.03.10
Запущено ли приложение...


6-29996
KoHe4Ho }|{e 6ot
2003-01-22 21:03
2003.03.10
Как написать свой DNS ?


14-30098
hatchy
2003-02-21 12:58
2003.03.10
Сотовый или музыка для сотового..


3-29737
Юный_программер
2003-02-19 13:02
2003.03.10
Не подскажите, в АДО свойство Prepared для параметеризированных