взаимодействие класов

[lichking]

ка организовать передачу данных из одного класса в другой в delphi 10.1 Berlin

[Alex11223]

Так же как и не в delphi 10.1 Berlin.

Методы, свойства, конструктор, события, ...

В любом учебнике по Паскалю или Дельфи это должно быть описано.

[lichking]

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

Так же как и не в delphi 10.1 Berlin.

Методы, свойства, конструктор, события, ...

В любом учебнике по Паскалю или Дельфи это должно быть описано.

пробовал вот что:

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls,math, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;
 type
  TYR = class(TForm)
    private
    { Private declarations }
  public
    { Public declarations }
     procedure dd (Sender: TObject;df1,df2,df3,df4:extended);
  end;
  var
  Yr: TYR;
   var
   b,a,c,d:extended;
type
  TForm3 = class(TForm)
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DF;
  end;

var
  Form3: TForm3;
   dds:string;
   ddf :extended;
implementation

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  procedure TForm3.DF;
end;

procedure TForm3.DF;
begin
yr.dd(ddf);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin

end;

{ TYR }

procedure TYR.dd(Sender: TObject; df1, df2, df3, df4: extended);
begin
 D :=power(b,2)-4*a*c;
 form3.Label1.Caption:=floattostr(D);
end;

end.

но не чего не вышло

[Alex11223]

В чем проявляется "не вышло"?
И что сделать-то пытались?

[come-on]

так не выйдет, мало странных слов написано, надо больше - гораздо больше

[lichking]

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

В чем проявляется "не вышло"?
И что сделать-то пытались?

Результат из одного класса присвоить в Label другого класса

[Replicant]

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  procedure TForm3.DF;
end;

Убрать

procedure TForm3.DF;
begin
yr.dd(ddf);
end;

Процедура не примет такой набор аргументов.

[come-on]

это автору написали ерунду что в юните нельзя сделать оф обжект, вот он и намалял TYR ))) да еще и как ! заглядение просто

[lichking]

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

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  procedure TForm3.DF;
end;

Убрать

procedure TForm3.DF;
begin
yr.dd(ddf);
end;

Процедура не примет такой набор аргументов.

Не обходимо значение D предать из класса yr в класс form3 и присвоить form3.label.caption

[Alex11223]

Советую начать с нормальных имен всего.