Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как правильно создать оператор проверки? [D7]

Страницы: 1 2 3 4 >
IIIakal © (2009-03-19 09:39:00)
Здравствуйте! Помогите пожалуйста решить такую задачу:
имеется 10 переменных: s1, s2 и т.д. нужно сделать такую проверку

if s1>0 then набор команд else if s2>0 then набор команд else и т.д.

Т.е. если переменная больше 0 , то выполнять заданные действия.
Спасибо за внимание!

Игорь Шевченко (2009-03-20 13:12:00) [1]

> ну я же только учусь....

Вот и учись.

IIIakal (2009-03-20 12:15:00) [2]

> Ты всегда сначала что-то делаешь, а потом читаешь про то
> как надо или как не надо было делать ?

не я просто сначала делал так

if s1>0 then begin
slot1.Visible:=true;
end
else if s2>0 then begin
slot2.Visible:=true;
end
else if s3>0 then begin
slot3.Visible:=true;

Но после сообщения [12] только узнал про циклы....))))
ну я же только учусь....

Сергей М. (2009-03-20 12:06:00) [3]

> IIIakal (20.03.09 12:04) [59]

> только что причитал главу про циклы

Только что ?!

Ты всегда сначала что-то делаешь, а потом читаешь про то как надо или как не надо было делать ?

IIIakal (2009-03-20 12:04:00) [4]

> Это прикол или ты действительно двоешник? :)

я просто только что причитал главу про циклы, закрепляю на практике)))))

{RASkov} (2009-03-20 12:02:00) [5]
> [53] IIIakal (20.03.09 11:54)

Это прикол или ты действительно двоешник? :)

IIIakal (2009-03-20 12:02:00) [6]

> ЮЮ

Спасибо бАльшущее)))

IIIakal (2009-03-20 12:00:00) [7]

> Это он тебе сам сказал, что не он работает ?

нет...значения массива только первых 5>0 , остальные 0, а значение visible:=true присваивается всем 10....

ЮЮ (2009-03-20 11:59:00) [8]
пжлст, всё не так

slot[1]:=slot1;
slot[2]:=slot2;
slot[3]:=slot3;
slot[4]:=slot4;
slot[5]:=slot5;
slot[6]:=slot6;
slot[7]:=slot7;
slot[8]:=slot8;
slot[9]:=slot9;
slot[10]:=slot10;

for i:=1 to 10 do
begin
slot[i].Visible:=s[i]>0;
end

Сергей М. (2009-03-20 11:56:00) [9]

> почему то не работает оператор if

Это он тебе сам сказал, что не он работает ?

IIIakal (2009-03-20 11:54:00) [10]
спс вот так
p:=0; for i:=1 to 10 do begin p:=p+1; if s[i]>0 then slot[1]:=slot1; slot[2]:=slot2; slot[3]:=slot3; slot[4]:=slot4; slot[5]:=slot5; slot[6]:=slot6; slot[7]:=slot7; slot[8]:=slot8; slot[9]:=slot9; slot[10]:=slot10; slot[p].Visible:=true;
но почему то не работает оператор if, все 10 slot:=true

Сергей М. (2009-03-20 11:45:00) [11]

> IIIakal (20.03.09 11:41) [50]

С первого раза выговорить эту абракадабру, наверно, не получилось ?)

см. [51]

IIIakal (2009-03-20 11:41:00) [12]

> Кто, куда и каким рейсом ?

Системное сообщение:
Access violation at addres 00443303 in module 'Project1.exe'. Read of address00000057.

ЮЮ (2009-03-20 11:41:00) [13]
в AV, прямым рейсом.
Ведь все его массивы заполнены nil-ами. Про то, что надо
slot[1] := Slot1; ...
никто не сказал :)

Сергей М. (2009-03-20 11:37:00) [14]

> при выполнение этого кода вылетает

Кто, куда и каким рейсом ?

IIIakal (2009-03-20 11:34:00) [15]
Блин, народ, ну объясните дураку пожалуйста, почему не работает цикл

var s, k:array[1..10] of integer; slot: array[1..10] of TBevel; p, i: integer; begin "Присвоение значений массивам S, K"; p:=0; for i:=1 to 10 do begin p:=p+1; if s[p]>0 then slot[p].Visible:=true; end; end;
компилируется, но при выполнение этого кода вылетает....

IIIakal (2009-03-19 16:19:00) [16]

> то тебе прямой путь в олигархи.

нет уж, спасибо...
я и так не плохо устроился....дворик у меня небольшой, метла хорошая, новая...:-\

Anatoly Podgoretsky (2009-03-19 16:14:00) [17]
Ну если

> мести от забора до обеда....

то тебе прямой путь в олигархи.

IIIakal (2009-03-19 16:12:00) [18]
))))))))))))))

Медвежонок Пятачок (2009-03-19 15:39:00) [19]
а как и где она объявляется?

перед бегином объявляется.

если в массиве лежат лопаты, то переменная должна быть типа "метла"

если в массиве метлы, то переменная должна быть типа "лопата"

IIIakal (2009-03-19 14:59:00) [20]
а ты считаешь, что дворником работать - не бесцельно проживешь?
мести от забора до обеда....

Страницы: 1 2 3 4 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »