Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: editfeld nur zahlen und komma?

    Delphi
    by arcangel, 1. Nov 2008
  hab d7^^ aber danke für den hinweis :)
  
  hab mein problem gerade gelöst... hier das ergebnis:
  
  
  If not(key in )
  then key := #0;
  If (Key = ',') and (edteinkaufspreis.Text = '') Then key := #0;
  If (Key = ',') and (pos(',',edteinkaufspreis.Text) > 0) Then key := #0;
• Forum: Sonstige Fragen zu Delphi

  editfeld nur zahlen und komma?

    Delphi
    by arcangel, 1. Nov 2008
  hi, ich hab noch eine frage.. und zwar:
  
  procedure TForm1.edteinkaufspreisKeyPress(Sender: TObject; var Key: Char);
  begin
  If not(key in ) OR (pos(',',edteinkaufspreis.Text) < -1)
  then key := #0;
  
  end;