G
Gazellea
Здраствуйте!
Прошу помощи!
у меня есть уровнение типа
procedure TForm1.Button1Click(Sender: TObject);
var x,y: integer;
begin
x:=100;
y:=StrToInt(Edit1.Text);
if x=y then
Button1.Caption:='Good';
begin
if x<y then
Edit2.Text:=FloatToStr(y-x);
end;
end;
end.
Мне нужно чтобы при выполнений условия (x<y), перед ответом ставился знак "+" или знак "-"?!
Пожалуста помогите! Очень нужна помощь!
Пы.Сы. в программирований не давно((
:sorry:
Прошу помощи!
у меня есть уровнение типа
procedure TForm1.Button1Click(Sender: TObject);
var x,y: integer;
begin
x:=100;
y:=StrToInt(Edit1.Text);
if x=y then
Button1.Caption:='Good';
begin
if x<y then
Edit2.Text:=FloatToStr(y-x);
end;
end;
end.
Мне нужно чтобы при выполнений условия (x<y), перед ответом ставился знак "+" или знак "-"?!
Пожалуста помогите! Очень нужна помощь!
Пы.Сы. в программирований не давно((
:sorry: