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

  • Автор темы Gazellea
  • Дата начала
G

Gazellea

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

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

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

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

Больной Компом Детектед
29.01.2006
2 432
33
#2
И выше выложенный листинг, тоже не ваш..
 

nayke

Well-known member
04.08.2010
310
0
#5
Здраствуйте!

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

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

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) - число всегда положительное
 
G

Gazellea

#6
Я может чего - то не понимаю, но по какому принципу должен ставится + или -
if x<y then Edit2.Text:=FloatToStr(y-x);
(y-x) - число всегда положительное
C++:
Мне просто нужно узнать как программно добавить знак "+" или "-" перед ответом в Edit
Добавлено:
Потому что судя по листингу, вам должно хватать знаний, что бы определить больше переменная 0 или меньше.
Данный пример писался с школьным знанием математики и инстетутским курсом информатики(почти утеряными в кладовках мозга) :)
 
G

Gazellea

#9
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, а она почему то считывает только последнюю настройку, а первую игнорирует!

:unsure: :unsure:
 

vital

Больной Компом Детектед
29.01.2006
2 432
33
#10
Разберитесь с бегинами и ендами, у вас там есть лишние. И кто так писать учит..
 

nayke

Well-known member
04.08.2010
310
0
#11
Код:
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 смысла в нем нет.