[ALexandr555]

Нужно в одном классе "1" обратиться к функции другого класса"2", это у меня вышло, но вот из класс "2" к функции в классе "1" тоесть наоборот обратиться не могу. как обратиться?

[M.A.D.M.A.N.]

Общий предок и абстрактную функцию сделать.

[ALexandr555]

тобишь как абстрактную функцию?

[M.A.D.M.A.N.]

Код:

function MyFunc(param: pointer): pointer; virtual; abstract;

Гоу учить ООП.

[ALexandr555]

ну вот я снизу после них

Код:

type
  Predoc = class(TForm)
  private
  protected
  public
  end;

создал имеете ввиду нужные функции мне в предок как абстрактные перекинуть

[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TCLASS2 = class;

  TCLASS1 = class
    B: TCLASS2;
    procedure A;
  end;

  TCLASS2 = class
    A: TCLASS1;
    procedure B;
  end;

var
  A: TCLASS1;
  B: TCLASS2;

{ TCLASS1 }

procedure TCLASS1.A;
begin
  Writeln('A');
end;

{ TCLASS2 }

procedure TCLASS2.B;
begin
  Writeln('B');
end;

begin
  A:=TCLASS1.Create;
  B:=TCLASS2.Create;
  A.B:=B;
  B.A:=A;

  A.B.B;
  B.A.A;

  B.Free;
  A.Free;

  Readln;
end.