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

[Replicant]

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

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

Если конечная цель изменить Form3.Label1.Caption то:

Form3.Label1.Caption:=TMyClass.TargetField

В вашем случае:

function TYR.dd(a,b,c: extended): extended;
begin
    Result :=power(b,2)-4*a*c;
end; 

Form3.Label1.Caption:=TYR.dd(a,b,c)

или что вы там передаете.

[Replicant]

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

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

+1!

[lichking]

так?

[lichking]

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

Если конечная цель изменить Form3.Label1.Caption то:

Form3.Label1.Caption:=TMyClass.TargetField

В вашем случае:

function TYR.dd(a,b,c: extended): extended;
begin
    Result :=power(b,2)-4*a*c;
end; 

Form3.Label1.Caption:=TYR.dd(a,b,c)

или что вы там передаете.

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 }

end;

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

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin
form3.Label1.Caption:=Tyr.dd(a,d,c) ;
end;





procedure TForm3.FormCreate(Sender: TObject);
begin

end;





{ TYR }

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

end.

так?

[Replicant]

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

unit Unit3;
так?

Нет, процедура не возвращает результат, меняйте на функцию, как написано выше.

[lichking]

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

Нет, процедура не возвращает результат, меняйте на функцию, как написано выше.

вот:
unit Unit3;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms,math, Vcl.Dialogs, Vcl.StdCtrls;
type
TSW = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SW: TSW;

function divia (D,D2,D3,F:Extended):extended;
type
TForm3 = class(TForm)
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;
D,D2,D3,F:extended;
s:string;



implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin
D:=strtofloat(form3.Edit1.Text);
D2:=strtofloat(form3.Edit1.Text);
D3:=strtofloat(form3.Edit1.Text);
Label1.Caption:=floattostr(F);
F:=TSW.divia(F2);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin

end;

{ TSW }
function divia (D,d2,d3,F:Extended):extended;
var
a,b,c,F2:extended;
begin
result:= power(b,2)-4*a*c;

end;

procedure TSW.FormCreate(Sender: TObject);
begin

end;

end.

[northener]

2 lichking. Ваш код просто бред с точки зрения основ Дельфи.
Нельзя описать в одном модуле два класса наследника TForm!

[lichking]

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

2 lichking. Ваш код просто бред с точки зрения основ Дельфи.
Нельзя описать в одном модуле два класса наследника TForm!

Немного поработал над кодом вот что вышло:
unit Unit3;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms,math, Vcl.Dialogs, Vcl.StdCtrls;
type
TSW = class(TObject)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
function divia (var D,D2,D3,F:Extended):extended;
{ Public declarations }
end;
var
a: string;


type
TForm3 = class(TForm)
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;
D,D2,D3,F3:extended;
s:string;



implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin
D:=strtofloat(form3.Edit1.Text);
D2:=strtofloat(form3.Edit1.Text);
D3:=strtofloat(form3.Edit1.Text);
Label1.Caption:=floattostr(F3);
F3:=TSW.divia(F);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin

end;

{ TSW }


function TSW.divia(var D, D2, D3, F: Extended): extended;
begin
divia:=POWER(D,2)-4*D2*D3;

end;

procedure TSW.FormCreate(Sender: TObject);


begin

end;


end.
но функцию все равно не признает

[lichking]

а все равно результат один ругается на вот это F:=TSW.divia(F2)

[Replicant]

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

а все равно результат один ругается на вот это F:=TSW.divia(F2)

Естественно, Вы описали эту функцию с 4-ю обязательными аргументами, в то время как передаете 1. А по факту, судя по тому, что Вы пытаетесь сделать в этой функции этих аргумента должно быть 3.