Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Eine Nach-Komma-Stelle

    Delphi
    by Pseudemys Nelsoni, 22. Sep 2003
  ich hätte es so gemacht:
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  if Pos(',', FloatToStr(StrToFloat(Edit1.Text) / 0.5)) = 0 then
  begin
  if StrToFloat(Edit1.text) <= 15 then
  ShowMessage('geht')
  else ShowMessage('geht nicht');
  end