Как сделать такое условие

[Владан]

Как в этой процедуре сделать еще одно условие что бы при y1=y2
выбивало в Edit4 что они равные?!

procedure TForm1.Button4Click(Sender: TObject);
var
y1:string;
y2:string;
 begin
  if y1>y2 then
  Edit4.Text:='y1'
  else Edit4.Text:='y2' and if
  y1=y2 then Edit4.Text:='однакові';
end;
end.

[Error] Unit1.pas(63): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

[winhttp]

Сообщение от Владан

procedure TForm1.Button4Click(Sender: TObject);
var
y1:string;
y2:string;
 begin
  if y1>y2 then
  Edit4.Text:='y1'
  else Edit4.Text:='y2' and if
  y1=y2 then Edit4.Text:='однакові';
end;
end.

[Error] Unit1.pas(63): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

а зачем там and?

begin
  if y1>y2 then
  Edit4.Text:='y1'
  else 
  begin
  if y1=y2 then Edit4.Text:='однакові'[/B]
  else Edit4.Text:='y2' [B]
  end;
end;

Так чтоли?

[Владан]

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

а зачем там and?

begin
  if y1>y2 then
  Edit4.Text:='y1'
  else 
  begin
  if y1=y2 then Edit4.Text:='однакові'[/B]
  else Edit4.Text:='y2' [B]
  end;
end;

Так чтоли?

в таком случае оно мне всегда выбивает 'однакові'

[winhttp]

y1:string;
y2:string;

строки сравниваете чтоли?

procedure TForm1.Button4Click(Sender: TObject);
var
y1:string;
y2:string;

обьявляете внутри процедуры, а значит видимость у них только внутри процедуры. в самой процедуре никаких присваниваний этим переменным не делаете, тогда какие значения у этих переменных будут?

[Владан]

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

y1:string;
y2:string;

строки сравниваете чтоли?

procedure TForm1.Button4Click(Sender: TObject);
var
y1:string;
y2:string;

обьявляете внутри процедуры, а значит видимость у них только внутри процедуры. в самой процедуре никаких присваниваний этим переменным не делаете, тогда какие значения у этих переменных будут?

implementation

{$R *.dfm}
var
  y1,y2,x:real;

procedure TForm1.Button1Click(Sender: TObject);
begin
  x:=StrtoFloat(Edit1.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  y1:=(1+4*x+4*sqr(x))*(x/3-x/5);
  Edit2.text:=FloattoStrF(y1,ff,Fixed,6,2););
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  y2:=(2*x*x*x)/(2-sqr(x));
  Edit3.Text:=FloattostrF(y2,ff,Fixed,6,2);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
y1:string;
y2:string;
begin
  if y1>y2 then
  Edit4.Text:='y1'
  else
 begin
  if y1=y2 then Edit4.Text:='однакові'
  else Edit4.Text:='y2';
 end;
end;
end.

[Владан]

Всё сработало , спасибо),winhttp