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

Вниз

Схожу с ума?   Найти похожие ветки 

 
McSimm ©   (2002-05-30 14:22) [0]

const
TCount = 7;
Teachers: array[0..TCount-1] of String =
("1234",
"asdf",
"zxcv",
"ruyu",
"bteb",
"btyrcc",
"34ff f"
);

function IsTeacher(const S: String): Boolean;
var I: Integer;
begin
Result := False;
for I := 0 to TCount - 1 do
begin
if Teachers[I] = S then Result := True;
Exit
end
end;

Во первых пишет
Value assigned to I never used,
Во вторых всегда выполняет цикл один раз.


 
Внук ©   (2002-05-30 14:24) [1]

Exit ???


 
McSimm ©   (2002-05-30 14:25) [2]

Заработался, извините.

Уже все понял :))


 
Внук ©   (2002-05-30 14:26) [3]

Result:=Teachers[I]=S;
if Result then Exit;


 
Song ©   (2002-05-30 14:33) [4]

For I:=0 to TCount-1 Do
IF Teachers[I]=S then
Begin
Result:=True;
Exit;
End;


 
Song ©   (2002-05-30 14:35) [5]

Или логичней Break


 
Alx2 ©   (2002-05-30 14:45) [6]

>McSimm © (30.05.02 14:25)
И похлеще бывают загоны...
Song&Внук научили уже куда exit ставить? :))


 
McSimm ©   (2002-05-30 16:12) [7]

>Alx2 © (30.05.02 14:45)

Веришь, минут 20 пытался понять в чем проблема, а увидел свой-же вопрос в форуме - сразу ошибку увидел
:)


 
Yakudza ©   (2002-05-30 16:20) [8]

2McSimm © (30.05.02 16:12)

>Веришь, минут 20 пытался понять в чем проблема, а увидел свой->же вопрос в форуме - сразу ошибку увидел
>:)

Я форум тоже несколько раз, как дебагер использовал :)))



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

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

Наверх




Память: 0.48 MB
Время: 0.015 c
3-891
Ola
2002-06-07 12:32
2002.07.01
BatchMove!!!!


1-978
Jony
2002-06-19 16:25
2002.07.01
Динамическая настройка панели инструментов


14-1178
Fissher
2002-05-30 18:08
2002.07.01
Всем привет! Книжки не найдется? :-))


4-1262
Nickyboy
2002-04-30 17:52
2002.07.01
ПЛЗ, дайте примерчик нажатия кнопки, я уже больше не могу:)))


1-1096
Evgeny
2002-06-18 12:43
2002.07.01
CreateWindow