[Creat0R]

Структуры возможно, а что такое «множество» я так и не понял, может это массивы?

[proxy]

DllStructCreate

справка рулит (rtfm) )))

[morgan1991]

Сори я видел в справке DllStructCreate просто сначала подумал что оно нужно для создания структуры в библиотеке.
Но всеравно какаято странная команда например чтобы получить данные нужно использовать
DllStructGetData ( Struct, Element [, index ] )
В то время как в других язык можно получить данные так
Struct.Element[index]

а что такое «множество» »

Например в паскале множество создается так:

Код:

program name;
type mnog=set of byte; {Тип множество }
var a:mnog; {a типа mnog}
      temp:char;
BEGIN
   temp:='a';
   a:=['a','b','c'];
   if (temp in a) then writeln('В переменной temp есть либо a либо b либо c');
END.

В Паскале под множественным типом понимается конечная совокупность элементов, принадлежащих некоторому базовому типу данных.

[Creat0R]

в других язык можно получить данные так »

Неужели намного проще/короче?

В Паскале под множественным типом понимается конечная совокупность элементов, принадлежащих некоторому базовому типу данных

Ну это могут быть и массивы (Array)...

[morgan1991]

Ну это могут быть и массивы (Array)... »

Т.е. можно сделать так?

Код:

if string in array then msgbox(0, "", "")

[proxy]

имеешь в виду такое:

Код:

Local   $sString   = 'Строка agk673qwikyg'
Local   $aArray[3] = ['Массив', 1, $sString]

_Check(IsArray($aArray), $aArray)
_Check(IsArray($sString), $sString)

Func _Check($iIsArray, $vWhatCheck)
    If $iIsArray == 1 Then
        MsgBox(64, 'Внимание', 'Проверяется: ' & $vWhatCheck & @CRLF & 'Результат проверки: ' & $iIsArray & @CRLF & @CRLF & 'Переменная массив')
    Else
        MsgBox(64, 'Внимание', 'Проверяется: ' & $vWhatCheck & @CRLF & 'Результат проверки: ' & $iIsArray & @CRLF & @CRLF & 'Переменная НЕ массив')
    EndIf
EndFunc

[Creat0R]

Т.е. можно сделать так? »

Для этого массив не нужен:

Код:

$sVar = "This is a Test"
$sTest = "Test"

If StringInStr($sVar, $sTest) Then MsgBox(64, 'Title', StringFormat('$sTest ("%s") found in $sVar ("%s")', $sTest, $sVar))

А если всё же в массиве нужно, тогда так:

Код:

Dim $aArray[5] = [4, "This", "is", "a", "Test"]
$sTest = "Test"

For $i = 1 To $aArray[0]
    If $aArray[$i] = $sTest Then MsgBox(64, 'Title', StringFormat('$sTest ("%s") found in $aArray (element [%i])', $sTest, $i))
Next