Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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.007 c
1-100200
yUrrius
2003-03-11 10:03
2003.03.31
Програмное закрытие модальной формы


3-100186
Roki
2003-03-12 10:15
2003.03.31
Как в IB(FireBird) снимать статистику доступа к БД?


4-100517
_sMile
2003-01-31 20:58
2003.03.31
Сообщения из консоли.


1-100302
BJValentine
2003-03-19 16:18
2003.03.31
Как деинсталить установленную компоненту?


14-100377
REA
2003-03-13 13:06
2003.03.31
Реклама





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский