Добавить знак "+" "-"

[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:

 

[vital]

И выше выложенный листинг, тоже не ваш..

 

[Gazellea]

И выше выложенный листинг, тоже не ваш..

не понял, почему не мой? :sorry: только что в Делфи 2009 набирал :facepalm:

 

[vital]

не понял, почему не мой?

Потому что судя по листингу, вам должно хватать знаний, что бы определить больше переменная 0 или меньше.

 

[nayke]

Здраствуйте!

Прошу помощи!

у меня есть уровнение типа

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:

Я может чего - то не понимаю, но по какому принципу должен ставится + или -
if x<y then Edit2.Text:=FloatToStr(y-x);
(y-x) - число всегда положительное

 

[Gazellea]

Я может чего - то не понимаю, но по какому принципу должен ставится + или -
if x<y then Edit2.Text:=FloatToStr(y-x);
(y-x) - число всегда положительное

Мне просто нужно узнать как программно добавить знак "+" или "-" перед ответом в Edit

Добавлено:

Потому что судя по листингу, вам должно хватать знаний, что бы определить больше переменная 0 или меньше.

Данный пример писался с школьным знанием математики и инстетутским курсом информатики(почти утеряными в кладовках мозга)

 

[nayke]

Мне просто нужно узнать как программно добавить знак "+" или "-" перед ответом в Edit

edit.text:='-' + edit.text;

Добавит минус вначало ответа в edit

 

[Gazellea]

edit.text:='-' + edit.text;

Добавит минус вначало ответа в edit

Спасибо! :what?:

 

[Gazellea]

procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
x:=100;
y:=StrToInt(Edit1.Text);
if x=y then
Edit2.Text:='Good buy';
begin
if x<y then
Edit2.Text:='+'+FloatToStr(y-x);
Label1.Font.Color:=clgreen;
end;
begin
if x>y then
Edit2.Text:='-'+FloatToStr(x-y);
Label1.Font.Color:=clred;
end;
end;
end.

Если не трудно, подскажите пожалуста, почему программа считвает только последнее значение Label1 ?

Ведь для каждого варианта она должна считывать свой вариант настройки Label1, а она почему то считывает только последнюю настройку, а первую игнорирует!

 

[vital]

Разберитесь с бегинами и ендами, у вас там есть лишние. И кто так писать учит..

 

[nayke]

procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
x:=100;
y:=StrToInt(Edit1.Text);
if x=y then Edit2.Text:='Good buy';
if x<y then
begin 
Edit2.Text:='+'+FloatToStr(y-x);
Label1.Font.Color:=clgreen; 
end;
if x>y then
begin
Edit2.Text:='-'+FloatToStr(x-y);
Label1.Font.Color:=clred;
end;
end;

помоему ты хотел сделать это.. begin ставиться после then дабы выполнить необходимое количество строк а не одну.. перед then смысла в нем нет.

 

[Gazellea]

nayke и vital Спасибо большое))