Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.61 MB
Время: 0.043 c
1-29929
msoftware
2003-02-26 06:36
2003.03.10
Как сделать прорисовку всех компонентов?


1-29812
Duke2
2003-02-27 07:58
2003.03.10
Кодировка графсимволов ДОС


3-29761
KA_
2003-02-19 11:00
2003.03.10
Почему не работает UPPER?


1-29913
Barriage
2003-02-26 00:56
2003.03.10
Как создавать и удалять элементы управления в RUNTIME


1-29911
Tihas
2003-02-26 23:38
2003.03.10
Вопросик по поводу TWINControl





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский