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

[lichking]

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

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

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: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(D,D2,D3);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin

end;

{ TSW }


function TSW.divia(var D, D2, D3: Extended): extended;


begin
divia:=POWER(D,2)-4*D2*D3;

end;

procedure TSW.FormCreate(Sender: TObject);


begin

end;


end.
непомогло F3:=tsw.divia(D,D2,D3);

[Replicant]

Я большего винегрета в жизни не видел.

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, math;

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

  function divia(D, D2, D3: Extended): extended;

var
  Form3: TForm3;

implementation

{$R *.dfm}

function divia(D, D2, D3: Extended): extended;
begin
  Result:=POWER(D,2)-4*D2*D3;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  D,D2,D3:extended;
begin
  D:=strtofloat(form3.Edit1.Text);
  D2:=strtofloat(form3.Edit1.Text);
  D3:=strtofloat(form3.Edit1.Text);
  Label1.Caption:=floattostr(divia(D,D2,D3));
end;

end.

[lichking]

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

Я большего винегрета в жизни не видел.

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, math;

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

  function divia(D, D2, D3: Extended): extended;

var
  Form3: TForm3;

implementation

{$R *.dfm}

function divia(D, D2, D3: Extended): extended;
begin
  Result:=POWER(D,2)-4*D2*D3;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  D,D2,D3:extended;
begin
  D:=strtofloat(form3.Edit1.Text);
  D2:=strtofloat(form3.Edit1.Text);
  D3:=strtofloat(form3.Edit1.Text);
  Label1.Caption:=floattostr(divia(D,D2,D3));
end;

end.

вот здесь вы абсолютно правы и я бы не стал городить такой винегрет который нагородил если бы не было задачи решить с помощью другого класса

[evg_m]

класс для вычисления

TDivia =class(TObject)
private
  Fd1, Fd2, Fd3: extended;
  procedure SetD1(Aval: extended;
  procedure SetD2(Aval: extended;
  procedure SetD3(Aval: extended;
  function GetDivia: extended;
public // мы можем из других объектов/(классов/процедур/...
  property d1: extended write setd1; // заполнить(задать){write}(записать)  значения D1
  property d2: extended write setd2; // .... D2
  property d3: extended write setd3; // .... D3 
  property divia: extended read GetDivia; //и получить(узнать){read}(прочитать) значение "нашей" функции
end;  

procedure TDivia.setD1(Aval: extended);
begin
  FD1:=Aval;
  ....
end;

... // аналогично  SetD2, SetD3

function TDivia.GetDivia: extended;
begin
  result:=Power(FD1,2) -4*FD2*FD3;
end;

и его использование

rd:=TDivia.Create;//создать объект соответствующего класса
rd.D1:=...  // задать значения аргументов функции
rd.D2:=...
rd.D3:=...
otvet:=rd.Divia; // и получить значение функции

причем это не обязательно должно быть именно так подряд.

НАПРИМЕР ТАК

TForm1 =class(TForm)
...
private
  rd: TDivia; //никаких глобальных переменных. Используем поле объекта(нашей СОЗДАННОЙ формы)
end;

при создании формы TForm.OnCreate

TForm1.formCreate(Sender: TObject);
begin
  rd:=TDivia.Create; // теперь мы можем этим пользоваться
end;

три разных обработчика события TEdit.OnChange для трех полей ввода значений D1, D2, D3.

в каждом из них пишем ровно ДВЕ строчки.

// заполняем НУЖНОЕ(соответствующее)  поля ОБЪЕКТА вычислений
rd.DX:=strtofloat((sender as TEdit).text); //X это нужный нам D1 D2 D3 (соответствующий данному TEdit).
// все прочие поля остаются теми же самыми что были при вводе в соответствующие поля 
EditRez:=floattostr(rd.Divia); // и получаем результат

P.S. конечно сейчас скажут что можно обойтись и одним обработчиком + (sender as TEdit).Tag

три разных обработчика события TEdit.OnChange для трех полей ввода значений D1, D2, D3.

НО оставим это на случай когда ТС поймет как пользоваться классами.

[Replicant]

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

НО оставим это на случай когда ТС поймет как пользоваться классами.

Вряд ли он соберет все это воедино.

[evg_m]

и его использование
Код:

Вряд ли он соберет все это воедино.

На этот случай (для начала) есть надеюсь

и его использование

rd:=TDivia.Create;//создать объект соответствующего класса
rd.D1:=...  // задать значения аргументов функции
rd.D2:=...
rd.D3:=...
otvet:=rd.Divia; // и получить значение функции

[lichking]

в класс TW предаются данные из класса form3 обрабатываются в TW и результат передается в form3 я просто должен создать класс для решения квадратного уравнения поэтому пытаюсь понять наладить связь а дальше буду пробовать сам забираться.

[lichking]

все вышло всем спасибо