Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Можно ли создать массив в вызываемой процедуре, / 6 сообщений из 6, страница 1 из 1
03.02.2021, 15:52
    #40041241
glamis
glamis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли создать массив в вызываемой процедуре,
Очень хочется сделать вот так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
ss=tt()
DISPLAY MEMORY LIKE ss

PROCEDURE tt
DIMENSION gg(5,3)
gg=''
RETURN @gg



Но не разрешает.
Тема навеяна http://forum.foxclub.ru/read.php?29,167116
и
http://forum.foxclub.ru/read.php?32,177198,234888#msg-234888

Размерность массива заранее не определена, создается по Copy to array.
Курсор создается в процедуре и нужен только для создания этого массива. Наиболее логично создать массив в процедуре и закрыть этот курсор.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2021, 16:18
    #40041258
bguo_reminder
bguo_reminder
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли создать массив в вызываемой процедуре,
Напишите вопрос нормально/подробно, а то ss,tt,gg
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2021, 16:56
    #40041273
Sergey Sizov
Sergey Sizov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли создать массив в вызываемой процедуре,
glamis,
массив можно создать в вызывающем процедуру коде. Что все и делают.

DIMENSION gg(1)
ss=tt()
DISPLAY MEMORY LIKE ss

PROCEDURE tt
DIMENSION gg(5,3)
gg=''
RETURN @gg
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2021, 17:13
    #40041281
glamis
glamis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли создать массив в вызываемой процедуре,
Sergey Sizov,
Проблема в том, что Copy to если массив определен, то копирует столько строк сколько определено. Она не расширяет массив.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
CLOSE DATABASES 
USE \\servdos\Temp\debugstxt\R002774226_000001.dbf
DIMENSION gg(1,1)
ss=tt()
?ALEN(gg,1), ALEN(gg,2)

PROCEDURE tt
COPY TO ARRAY gg
gg=''
RETURN @gg



возвращает 1 1

Хотя...
Код: vbnet
1.
2.
3.
4.
PROCEDURE tt
COPY TO ARRAY ss
ACOPY(ss,gg)
RETURN @gg



возвращает номально: 22004 20

Вопрос снят))
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2021, 17:21
    #40041287
glamis
glamis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли создать массив в вызываемой процедуре,
При таком решении и Return не нужен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2021, 09:46
    #40075818
AK-Shah
AK-Shah
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли создать массив в вызываемой процедуре,
Можно передавать не массив, а коллекцию. По ней есть поиск (кажется метод GetKey() ), вставка и удаление проще/понятнее. Но смотря для чего...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Можно ли создать массив в вызываемой процедуре, / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 653ms
Закрыть
start [/forum/search_topic.php?author=%D0%98%D0%BB%D1%8C%D1%8F+%D0%A1%D1%83%D1%85%D0%B5%D0%BD%D0%BA%D0%BE&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 9ms
get forum list:
 15ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 490ms
total:  653ms
x
x
Закрыть


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