Вверх ↑
Ответов: 5
Рейтинг: 0
#1: 2011-12-19 12:45:53 ЛС | профиль | цитата
Вот уже лучше.
У меня выглядит как то так.
{Создал:}
unit Sv;
....
const ...
var {например} a:array[1..10] of real;
...
{*************************************************************************}
{Первый Компонент изменяет массив а:}
unit hiStream;
....
uses ...,Sv;
...
type
THIStream = class(TDebug)
.....
procedure _work_doID(var _Data:TData; Index:word);
.....
{Тут вносим изменения в массив а}
procedure THIStream._work_doID;
...
begin
........
end;
.....
{*************************************************************************}
{Во второй компонент надо передать значения массива "а" измененные в первом компоненте:}
unit hiMatMod;
....
uses ...,Sv;
...
type
THIMatMod = class(TDebug)
.....
procedure _work_doDan(var _Data:TData; Index:word);
.....
{Вот тут мы должны получить массив "а" изменённый в первом компоненте}
procedure THIMatMod._work_doDan;
...
begin
........
end;
.....
{*************************************************************************}

карма: 0

0