[Jury_yamal]

Здравствуйте.
Подскажите пожалуйста есть следующее:

Код:

type TMasCH = array [1..10,1..2] of Single;
 var
   CalTab_CH1:TMasCH;
   CalTab_CH2:TMasCH;
   CalTab_CH3:TMasCH;
   CalTab_CH4:TMasCH;

Который содержит массивы калибровочных данных.Далее надо последовательно в процедуру кусочно-линейной интерполяции передавать эти массивы.
Сейчас для одного массива это выглядит так

Код:

procedure TForm1.LinearInterpolation (Voltage:Single;const CH:TMasCH)

Как в этой процедуре узнать какой массив я передал CalTab_CH1 или
CalTab_CH2 и т.д. в зависимости от этого процедура должна выводить рассчитанное значение в 4 Edita. Заранее спасибо за любые советы.

[Bargest]

Передать третьим параметром номер массива? Или, к примеру, сразу результирующий TEdit?

[Jury_yamal]

Хотел часть процедуры вынести в процедуру в отдельном unitе - получаю ошибку на то что unit не знает что такое TmasCH. Какое есть решение проблемы? А Вы предлагаете следующее:

Код:

procedure TForm1.LinearInterpolation (Voltage:Single;const CH:TMasCH;N_Reguest:Byte)

И по номеру в Byte соответственно отслеживать какой из масивов я передал?

[angvelem]

1. В нужном юните добавить в Uses юнит с описанием массива.
2. Перенести описание массива в нужный юнит.

[Alegun]

Код:

type 
TMasCH = array [0..10,1..2] of Single;
...
procedure TForm1.LinearInterpolation (Voltage:Single;const CH:TMasCH);
begin
 case CH[0,1] of
   1: //CalTab_CH1
   2: //CalTab_CH2
   3: //CalTab_CH3
   4: //CalTab_CH4
 end;
end;
...

Добавлено немного позже

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

...процедура должна выводить рассчитанное значение в 4 Edita...

Код:

...
(FindComponent('Edit_CH' + IntToStr(CH[0,1])) as TEdit).Text:= rslt;
...