0

Есть

type TA = class 
  ValueA: Integer;
  myFuncA(): Boolean;
end;

и

type TB = class
  ValueB: Integer;
  myFuncB(): Boolean;
end;

Как записать это так, чтобы в myFuncB видеть значение ValueA, и наоборот, в myFuncA видеть ValueB? Не знаю если это важно, сначала создается TA, а он создает TB.

8
  • Передай объект в параметрах метода.
    – Alex78191
    19 июл 2017 в 2:34
  • @Alex78191 я же не могу перекрестно в первом объявить второй и во втором первый
    – ArtGrek13
    19 июл 2017 в 2:38
  • 1
    Почему не можешь?
    – Alex78191
    19 июл 2017 в 4:22
  • 1
    Что-то типа ru.stackoverflow.com/questions/625439
    – Kromster
    19 июл 2017 в 5:38
  • 1
    Зачем создавать два одинаковых класса?
    – Alex78191
    19 июл 2017 в 8:11

1 ответ 1

1

Необходимо указать области видимости для полей в классах. Переменные которые нужно видеть - объявляются в секции public

пример:

type
  TA = class 
  private
    function myfunc(val: Integer): Boolean;
  public  
    ValueA: Integer;
  end;

  TB = class
  public
    fa: TA;
    constructor Create(a: TA);
  end;

...

constructor TB.Create(a: TA);
begin
  inherited;
  fa := a;
end;

...

a := TA.Create();
b := TB.Create(a);
WriteLN(b.fa.ValueA);

...
4
  • 1
    Я конечно могу ошибаться, но так как я записал, переменные не находятся в private, так как я могу обратиться к ним из вне, проблема в перекрестном обращении
    – ArtGrek13
    19 июл 2017 в 11:02
  • 1
    Тогда - физический смысл данного действия непонятен. Вы создаете две различные сущности и хотите чтобы из одного были видны значения другого.... Дополню ответ
    – asg
    19 июл 2017 в 11:40
  • "Так как у Вас сделано -переменные находятся в секции private" - Это не так. Members at the beginning of a class declaration that do not have a specified visibility are by default published, provided the class is compiled in the {$M+} state or is derived from a class compiled in the {$M+} state; otherwise, such members are public.
    – Kromster
    19 июл 2017 в 11:40
  • Да вы правы, подзабыл уже ....
    – asg
    19 июл 2017 в 11:47

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.