Скласть до куди?

[MAZADA]

Как скласть?
если Edit1 i Edi2 не ровны Нулю, тогда Edit 3 отнять от Edit4?

[Don Karleone]

 
if (StrToInt(Edit1.Text)<>0) and (StrToInt(Edit2.Text)<>0)
  then Edit3.Text:=IntToStr(StrToInt(Edit3.Text) - StrToInt(Edit4.Text));

[Stilet]

Скласть до куди?

Мабудь "до купи"??

[MAZADA]

Не работает!
У меня значение с плавающей точкой.
А можно написать с Def?

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

Мабудь "до купи"??

Да до Купи, я даже и не заметил!

if (StrToFloat(Edit12.Text)<>0) and (StrToFloat(Edit13.Text)<>0)
then Edit46.Text:= Floattostr(StrtoFloat(Edit1.Text)- StrToFloat(Edit46.Text));

[XeruH]

if (StrToFloatDef(Edit12.Text, 0)<>0) and (StrToFloatDef(Edit13.Text, 0)<>0)
then Edit46.Text:= Floattostr(StrtoFloatDef(Edit1.Text, 0)- StrToFloatDef(Edit46.Text, 0));

А нажать F1 и там ввести StrToFloatDef нельзя?

[MAZADA]

if (StrToFloatDef(Edit12.Text, 0)>0) and (StrToFloatDef(Edit13.Text, 0)>0)
then Edit49.Text:= Floattostr(StrtoFloatDef(Edit46.Tex t, 0)- StrToFloatDef(Edit1.Text, 0));
if (StrToFloatDef(Edit8.Text, 0)>0) and (StrToFloatDef(Edit6.Text, 0)>0)
then Edit49.Text:= Floattostr(StrtoFloatDef(Edit46.Tex t, 0)- StrToFloatDef(Edit3.Text, 0));

Вот это правильно написано?
Мне нужно до разных едитов!
Посмотрите на картинку...

[XeruH]

синтаксически правильно. Но логически. Может вам все-таки надо так?

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

[MAZADA]

вот на else у меня ошибка!

[Stilet]

еще бы... Перед else точка-запятая не ставится.

P.S. когда уже народ поймет что программисты не телепаты...

[XeruH]

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

вот на else у меня ошибка!

Да там ";" перед else. Проклятый копи-паст )))