[lekssp]

Помогите пожалуйста!
Есть функция. Она должна если число чётное, возвращать адрес одного массива( массив целых чисел). Если число нечётное, то возвращать адрес массива строк. Перепробовал много вариантов, ни один не работает

[M.A.D.M.A.N.]

Ну так показывай, чего у тебя там.

[Bargest]

Показывай наработки, иначе будет

Код:

result := Pointer(DWORD(@arr1)*(i and 1 > 0) + DWORD(@arr2)*(i and 1 = 0));

[icWasya]

Сообщение от lekssp

Помогите пожалуйста!
Есть функция. Она должна если число чётное, возвращать адрес одного массива( массив целых чисел). Если число нечётное, то возвращать адрес массива строк. Перепробовал много вариантов, ни один не работает

А как предполагается это использовать?(пример кода)

[lekssp]

Друг попросил написать ему движок паскаля на паскале
Есть 2 массива

Код:

int:array ['a'..'z'] of integer;

и

Код:

str:array ['a'..'z'] of string;

Процедура по имени переменной определяет тип и даёт ссылку на работу с данными или массива int или массива str