Topic: моля за помощ

здравейте,със 2 стойности не работи


procedure frmSav_Edit2_OnChange (Sender: string);
begin
if frmSav.Edit2.Text='0,50' then frmSav.Label4.Caption :='нeподходящ';
if frmSav.Edit2.Text='1,00' then frmSav.Label4.Caption :='нeподходящ';


if frmSav.Edit2.Text<>'0,50' then frmSav.Label4.Caption :='подходящ';
if frmSav.Edit2.Text<>'1,00' then frmSav.Label4.Caption :='подходящ';

    end;

Re: моля за помощ

Здравейте.


Опитайте така:

procedure frmSav_Edit2_OnChange (Sender: string);
begin
   if (frmSav.Edit2.Value=0.5) or (frmSav.Edit2.Value=1) then frmSav.Label4.Caption :='нeподходящ' else frmSav.Label4.Caption :='подходящ';
end;
Dmitry.

Re: моля за помощ

Благодаря,отново имам проблем

когато числото в Edit2 е по малко от 1 (например 0,2) получавам съобщение за грешка :Floating point division by zero

procedure CalculateTotal90;
begin
    if ValidFloat(frmzak.Edit1.Text) and ValidFloat(frmzak.Edit2.Text)  then
    begin
 
    frmZak.Edit3.Text := FloatToStr( StrToFloat(frmZak.Edit1.Text) / StrToFloat(frmZak.Edit2.Text) );

    end else
    begin
        frmZak.Edit3.Text := '0';

    end;
    end;



      procedure frmzak_Edit2_OnChange (Sender: string);
begin
    CalculateTotal90;
end;

Re: моля за помощ

procedure CalculateTotal90;
begin
    if frmZak.Edit2.Value <> 0 then frmZak.Edit3.Value := frmZak.Edit1.Value / frmZak.Edit2.Value else frmZak.Edit3.Value := 0; 
end;    


procedure frmzak_Edit2_OnChange (Sender: string);
begin
    CalculateTotal90;
end;
Dmitry.