ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Значение в множестве как в паскале - возможно ли?
23 сообщений из 23, страница 1 из 1
Значение в множестве как в паскале - возможно ли?
    #33790845
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
Вобщем грабли такие, перерыл msdn - видать плохо рыл.

На паскале есть допустим:
Код: plaintext
1.
2.
3.
if I in [ 1 ,  2 ,  3 ,  6 ,  7 ,  8 ] then
begin
  ...
end;

возможна ли какаянить аналогичная директива в басике,
а то громоздко както
Код: plaintext
select case ...
или куча if совсем не катит
Код: plaintext
if I =  1  or I =  2  then ...
...
Рейтинг: 0 / 0
14.06.2006, 16:44
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33791466
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
Вроде
Код: plaintext
1.
2.
3.
4.
If i Like "[1,2,3,4,5]" Then
...
Else
...
End If

но это я думаю во сто, если не больше раз больше чем
Код: plaintext
1.
2.
3.
4.
5.
Select Case i
Case  1 , 2 , 3 , 4 , 5 
...
Case Else
...
End Select
...
Рейтинг: 0 / 0
14.06.2006, 20:40
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33791469
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
Aklinно это я думаю во сто, если не больше раз больше чем


В смысле медленней
...
Рейтинг: 0 / 0
14.06.2006, 20:41
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33791595
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
брателло - ты с лайком случаем не попутался?!
...
Рейтинг: 0 / 0
14.06.2006, 22:50
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33791602
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
> Aklin
Забираю свои слова обратно!
Действительно, ты абсолютно прав!
видать кроме как через like подобного не сделать
Огромное спасибо.
...
Рейтинг: 0 / 0
14.06.2006, 22:59
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33791858
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
Код: plaintext
i =  3 : If i Like "[11,22,33,44,55]" Then MsgBox "OK"
такое поведение мне совсем не нравится.
...
Рейтинг: 0 / 0
15.06.2006, 09:31
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33791888
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Все работает нормально. Что написал, то и делает. Сам подумай что ты пишешь!
...
Рейтинг: 0 / 0
15.06.2006, 09:45
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33792042
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
AndreyMpВсе работает нормально. Что написал, то и делает. Сам подумай что ты пишешь!
Да, что написал, то и делает. Но с паскалевским in разница принципиальная.
...
Рейтинг: 0 / 0
15.06.2006, 10:33
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33792182
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
Спасибо за советы.
Мне по большей части по барабану что like на 3 при множестве в котором есть 33 даст истину.
у меня однобайтовые сивмолы для сравнения будут.
писать сотню or'ов не охота.
...
Рейтинг: 0 / 0
15.06.2006, 11:17
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33792208
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
А ты случаем не строки парсить собрался?
...
Рейтинг: 0 / 0
15.06.2006, 11:24
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33792335
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
marvanА ты случаем не строки парсить собрался?
нет
...
Рейтинг: 0 / 0
15.06.2006, 11:49
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33792391
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
У меня то же встречаются в программе конструкции типа Select Case _ Case 1,5,8,11
Не замечал их громоздкости, пока сюда не взглянул.
Если надо переводить много кода на VB где встречаются конструкции in, есть смысл самому написать функцию типа этой.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Function IsInArray(v As Variant, ar As Variant) As Boolean
   Dim i As Long
   If IsArray(ar) Then
      For i =  0  To UBound(ar)
         If v = ar(i) Then
            IsInArray = True
            Exit Function
         End If
      Next
   Else
      IsInArray = (v = ar)
   End If
End Function
И пользоваться ей везде:
Код: plaintext
if IsInArray(i, array( 1 ,  2 ,  3 ,  6 ,  7 ,  8 )) then
...
Рейтинг: 0 / 0
15.06.2006, 12:04
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33792459
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Кстати, о быстродействии:
Во времена Турбопаскаля 6.0 нам советовали как раз OR использовать, т.к. функции над множествами работают медленней (из-за циклических алгоритмов).
Соптимизирует ли это современный дельфи - не знаю.
...
Рейтинг: 0 / 0
15.06.2006, 12:17
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33792525
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
WorobjoffУ меня то же встречаются в программе конструкции типа Select Case _ Case 1,5,8,11
Не замечал их громоздкости, пока сюда не взглянул.
Если надо переводить много кода на VB где встречаются конструкции in, есть смысл самому написать функцию типа этой.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Function IsInArray(v As Variant, ar As Variant) As Boolean
   Dim i As Long
   If IsArray(ar) Then
      For i =  0  To UBound(ar)
         If v = ar(i) Then
            IsInArray = True
            Exit Function
         End If
      Next
   Else
      IsInArray = (v = ar)
   End If
End Function
И пользоваться ей везде:
Код: plaintext
if IsInArray(i, array( 1 ,  2 ,  3 ,  6 ,  7 ,  8 )) then

СПАСИБО БОЛЬШОЕ ЧЕЛОВЕЧЕСКИ ПРОГРАММЕРСКОЕ!
...
Рейтинг: 0 / 0
15.06.2006, 12:27
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33794596
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
Чтото странно ...
пытаюсь сделать:
Код: plaintext
if IsInArray(i, array( 1 ,  2 ,  3 ,  6 ,  7 ,  8 )) then
компиллятор пишет:
Код: plaintext
Error	 21 	'Array' is a type and cannot be used as an expression.
может Inherits или Imports какойнить надо добавить в модуль?
...
Рейтинг: 0 / 0
16.06.2006, 09:44
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33794615
Дурак
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дурак
Участник
Я думаю, под "Array" автором подразумевалось имя массива...
...
Рейтинг: 0 / 0
16.06.2006, 09:50
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33794623
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
нифига: надо прямое преобразование указателя;
Код: plaintext
1.
  If IsInArray( 3 , CVar(Array( 1 ,  2 ,  3 ,  6 ,  7 ,  8 ))) Then MsgBox "AAA"
...
Рейтинг: 0 / 0
16.06.2006, 09:53
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33794636
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
серано компиллятор выдает
Код: plaintext
'Array' is a type and cannot be used as an expression.
...
Рейтинг: 0 / 0
16.06.2006, 09:57
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33794660
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
да, забыл добавить -
Visual Studio 2005
...
Рейтинг: 0 / 0
16.06.2006, 10:02
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33794671
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Function IsInArray_2(v As Variant, ParamArray ar() As Variant) As Boolean
  If UBound(ar) >  0  Then
    Dim i As Integer
    For i =  0  To UBound(ar) -  1 
      If v = ar(i) Then
        IsInArray_2 = True
        Exit Function
      End If
    Next i
  End If
  IsInArray_2 = False
End Function

Но все равно:
Код: plaintext
1.
2.
  If IsInArray_2( 3 ,  1 ,  2 , "3",  7 ,  8 ) Then MsgBox "AAA"
  If IsInArray( 3 , CVar(Array( 1 ,  2 , "3",  7 ,  8 ))) Then MsgBox "AAA"
...
Рейтинг: 0 / 0
16.06.2006, 10:04
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33794720
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
всеравно таже ошибка компиллятора
...
Рейтинг: 0 / 0
16.06.2006, 10:18
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33795127
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
KirillovAда, забыл добавить -
Visual Studio 2005Но ведь это - совсем другой язык !!!!!!
И там есть операции с множествами.
:) Но нет вариантных переменных.
...
Рейтинг: 0 / 0
16.06.2006, 11:57
| Ответить | Цитировать | Написать  
Значение в множестве как в паскале - возможно ли?
    #33795222
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
Worobjoff KirillovAда, забыл добавить -
Visual Studio 2005Но ведь это - совсем другой язык !!!!!!
И там есть операции с множествами.
:) Но нет вариантных переменных.
да я просто в этот форум написал, т.к. много людей в него ходит.
сама функция компиллится без вопросов, но вот не передать ей варинтный массив (((
...
Рейтинг: 0 / 0
16.06.2006, 12:24
| Ответить | Цитировать | Написать  
23 сообщений из 23, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Значение в множестве как в паскале - возможно ли?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33794615&tid=2165716]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 220ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 77ms
get tp. blocked users:
 2ms
others: 215ms
total:  556ms
созд. / загр.: 556ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]