Работа с else

[MAZADA]

if (StrToFloatDef(Edit12.Text,0)>0)
then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text))
else
if (StrToFloatDef(Edit13.Text,0)>0)
then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text))
else
if (StrToFloatDef(Edit6.Text,0)>0)
then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit3.Text))
else
if (StrToFloatDef(Edit8.Text,0)>0)
then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit3.Text));

Почему не работает?

Первое это "if (StrToFloatDef(Edit12.Text,0)>0)
then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text))
else
if (StrToFloatDef(Edit13.Text,0)>0)
then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text))" работает а далее не работает!

[XeruH]

Что значит не работает? Тут по твоему телепаты сидят? Напиши какие входные данные? Что получается? и Что должно получится.

И вот так мне кажется проще

if (StrToFloatDef(Edit12.Text,0)>0) or (StrToFloatDef(Edit13.Text,0)>0) then
begin
   Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text));
end else
begin
  if (StrToFloatDef(Edit6.Text,0)>0) or (StrToFloatDef(Edit8.Text,0)>0) then
  begin 
    Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit3.Text));
  end;
end;

[psycho-coder]

Что означает, работает и не работает?
Пройдитесь трассировкой, посмотрите значения в эдитах.
И назовите эдиты более информативно, иначе очень трудно будет понять от куда куда. Может Вы перепутали какой-то из них?

[MAZADA]

Edit46 у меня загальна сума.
Edit49 - сколько осталось.
Если Edit12 Edit13 больше нуля, значет товар продался, тогда от Edit46 отнять Edit1, Tdit1 это цена товара.

if (StrToFloatDef(Edit12.Text,0)>0) or (StrToFloatDef(Edit13.Text,0)>0) then
begin
Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text));
end else
Всьо оно отняло! Я знаю сколько осталось.
Но при продаже 2-го товару "Edit6 Edit8>0" оно уже не отнемает от Edit46. И в Edit49 оставляется прежнее число!

[Stilet]

MAZADA

Нужно весь проект смотреть и отлаживать...

[XeruH]

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

Edit46 у меня загальна сума.
Edit49 - сколько осталось.
Если Edit12 Edit13 больше нуля, значет товар продался, тогда от Edit46 отнять Edit1, Tdit1 это цена товара.

if (StrToFloatDef(Edit12.Text,0)>0) or (StrToFloatDef(Edit13.Text,0)>0) then
begin
Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text));
end else
Всьо оно отняло! Я знаю сколько осталось.
Но при продаже 2-го товару "Edit6 Edit8>0" оно уже не отнемает от Edit46. И в Edit49 оставляется прежнее число!

if (StrToFloatDef(Edit12.Text,0)>0) or (StrToFloatDef(Edit13.Text,0)>0) then
begin
   Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text));
end;
if (StrToFloatDef(Edit6.Text,0)>0) or (StrToFloatDef(Edit8.Text,0)>0) then
begin 
  Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit3.Text));
end;

У тебя какая-то путаница в голове! Если тебе надо чтобы из Edit46 отнималось [Edit1 при StrToFloatDef(Edit12.Text,0)>0 и StrToFloatDef(Edit13.Text,0)>0] и [Edit3 при StrToFloatDef(Edit6.Text,0)>0 и StrToFloatDef(Edit8.Text,0)>0], то никакие else не нужны! Иначе все правильно! Объясни толком что тебе надо! Пройдись в режиме отладки по коду и попытайся понять что у тебя происходит и что тебе надо поменять!

[MAZADA]

Я ребята понял почему не работало!
Надо было так
begin

if (StrToFloatDef(Form1.Edit12.Text,0) >0) or (StrToFloatDef(Form1.Edit13.Text,0) >0) then
begin
Edit4.Text:= FloatToStr(StrToFloat(Form2.Edit1.T ext)-((StrToFloat(Form1.Edit1.Text)+StrT oFloat(Form1.Edit3.Text))));
end else
begin
if (StrToFloatDef(Form1.Edit6.Text,0)> 0) or (StrToFloatDef(Form1.Edit8.Text,0)> 0) then
begin
Edit4.Text:= FloatToStr(StrToFloat(Form2.Edit1.T ext)-((StrToFloat(Form1.Edit1.Text)+StrT oFloat(Form1.Edit3.Text))));
end;

end;
end;