Форум: "Потрепаться";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
ВнизСхожу с ума? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c