Форум: "Потрепаться";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];
Вниз
Есть ли в Delphi функция определения вхождения числа в массив? Найти похожие ветки
← →
T2 (2003-03-13 15:32) [0]Типа
...Var A:Array[0..3] of byte;
Begin
A[0]:=12;A[1]:=22;A[2]:=13;A[3]:=9;
If <Функция>(13,A)=True Then ....
^^^^^^^^^^^^^^^
← →
MBo (2003-03-13 15:38) [1];)
цикл For спасет
← →
T2 (2003-03-13 15:39) [2]:(
Знаю, но неужели нет такой?
← →
MBo (2003-03-13 15:44) [3]Напишешь - будет.
← →
Digitman (2003-03-13 15:45) [4]
> T2
а если
Var A:Array[0..3] of чер_те_что_и_сбоку_бантик
?
следуя твоему предположению, Паскаль должен был бы иметь по отдельной ф-ции на каждый тип чер_те_что_и_сбоку_бантик ))
← →
NetKnight (2003-03-13 19:09) [5]
procedure isNumberInArray(var A:array of integer;n:integer):Boolean;
var i:integer;
begin
for i:=Low(A) to High(A) do
if A[i]=n then
begin
Result:=true;
end;
Result:=false;
end;
По моему проще некуда.. :)
← →
NetKnight (2003-03-13 19:11) [6]Тьфу, в блоке IF begin и end можно опустить.. Эт я автоматом их написал.. :)
← →
Ketmar (2003-03-13 19:22) [7]>NetKnight © (13.03.03 19:09)
Low(A) тоже можно смело заменить на 0
Satanas Nobiscum! 13-Mar-XXXVIII A.S.
← →
jack128 (2003-03-13 20:02) [8]а по моему нужно оставить begin end; а внутри написать
begin
Result := True;
Exit;
end; ;-))
← →
Ketmar (2003-03-13 20:15) [9]>jack128 © (13.03.03 20:02)
лучше Result := False переместить вверх, а в цикле вместо exit сказать break
Satanas Nobiscum! 13-Mar-XXXVIII A.S.
← →
T2 (2003-03-13 22:41) [10]Вот, как поступил я. Может есть рекомендации улучшения?
Function __SGuInArray(Value:Int64;Mas:Array of Int64;Var Num:Longint):Boolean;Var i,i1:Longint;
Begin Result:=False;Num:=0;i1:=Length(Mas);For i:=0 To i1 Do If Value=Mas[i] Then Begin Result:=True;Num:=i;Exit;End;
End;
← →
jack128 (2003-03-13 22:50) [11]Ketmar © (13.03.03 20:15)
а разница?? (в принципе, догадываюсь, но хочу потверждения)
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c
