|
29.05.2009, 11:46 | #1 |
Участник
|
1. есть форма F1, содержащая следующие объекты:
а) Rec1 - временная таблица б) Var1...VarN - ограниченное число глобальных переменных 2. есть форма F2, основанная на таблице аналогичной Rec1 из формы F1 тут же есть процедура Proc1, заполняющая некие параметры необходимо следующее: из F1 вызывается F2 с датасетом Rec1; вызывается процедура Proc1, заполняющаяя пременные Var1..VarN значениями, определенными в F2 т.е. по сути дела необходимо объявить форму F2 как переменную, чтобы можно было вызвать функцию как при этом можно передать таблицу Rec1 в форму F2? |
|
29.05.2009, 12:10 | #2 |
Участник
|
F2.SETTABLEVIEW(Rec1);
|
|
29.05.2009, 12:28 | #3 |
Участник
|
не работает.
но все равно спасибо) нашла другой способ. |
|
29.05.2009, 12:29 | #4 |
Участник
|
|
|
01.06.2009, 12:04 | #5 |
Участник
|
Цитата:
Сообщение от Lapunder
1. есть форма F1, содержащая следующие объекты:
а) Rec1 - временная таблица б) Var1...VarN - ограниченное число глобальных переменных 2. есть форма F2, основанная на таблице аналогичной Rec1 из формы F1 тут же есть процедура Proc1, заполняющая некие параметры необходимо следующее: из F1 вызывается F2 с датасетом Rec1; вызывается процедура Proc1, заполняющаяя пременные Var1..VarN значениями, определенными в F2 т.е. по сути дела необходимо объявить форму F2 как переменную, чтобы можно было вызвать функцию как при этом можно передать таблицу Rec1 в форму F2? Для примера стандратной реализации поищите код типа Form - OnModifyRecord() : Boolean RecTemp := Rec; RecTemp.MODIFY; EXIT(FALSE); или Form - OnNextRecord(Steps : Integer) : Integer RecTemp.COPY(Rec); ResultSteps := RecTemp.NEXT(Steps); IF ResultSteps <> 0 THEN Rec := RecTemp; EXIT(ResultSteps); |
|