Új hozzászólás Aktív témák

• #1943 zka67 őstag TAZ155 #1941

  Új Válasz 2013-03-22 00:31:50 #1943

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zka67

  őstag

  válasz TAZ155 #1941 üzenetére

  Így:

  procedure TFom_ini.Button2Click(Sender: TObject);
  var z1,z2 : Real;
  begin
  DecimalSeparator := '.';
  z1 := StrToFloat(Edit1.text);
  z2 := StrToFloat(Edit2.text);
  Edit3.text := FloatToStr(z1*z2);
  end;

  A DecimalSeparator értéke határozza meg, hogy tizedespontot vagy tizedesvesszőt fogadjon el.
  A hibakezelést majd ne felejtsd el hozzáadni (try ... except),

  procedure TFom_ini.Button2Click(Sender: TObject);
  var z1,z2 : Real;
  begin
  DecimalSeparator := '.';
  try
  z1 := StrToFloat(Edit1.text);
  z2 := StrToFloat(Edit2.text);
  except
  on E: Exception do { Hibakezelés }
  end;
  Edit3.text := FloatToStr(z1*z2);
  end;

  vagy használd a Val funkciót.

  procedure TFom_ini.Button2Click(Sender: TObject);
  var z1,z2 : Real;
  e : integer;
  begin
  DecimalSeparator := '.';
  Val(Edit1.Text, z1, e);
  if e > 0 then begin
  { Hibakezelés, pl. z1 := 1; vagy Exit; }
  end;
  Val(Edit1.Text, z2, e);
  if e > 0 then begin
  { Hibakezelés, pl. z2 := 1; vagy Exit; }
  end;
  Edit3.text := FloatToStr(z1*z2);
  end;

Új hozzászólás Aktív témák