Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
22. Nov 2003
PS:
If Pos(',', Edit1.Text) > 0 Then KommaGefunden := True;
{ entspricht deinem }
For i := 1 to Length(Edi1.Text) do
If Ord(Edit1.Text) = 44 Then KommaGefunden := True;
For i := 1 to Length(Edi1.Text) do
If Edit1.Text = ',' Then KommaGefunden := True;
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
22. Nov 2003
:warn: Hättest ja mal in meine Demo schauen können.
Dann währe das ja schon lange geklärt.
Das Teil beachtet sogar welches Zeichen im laufenden System als komma verwendet wird.
{© by Himitsu @ Delphi-PRAXiS}
Procedure TInputBoxNZForm.Edit1KeyPress(Sender: TObject; Var Key: Char);
Begin
If not (Key in ) Then Key := #00;
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
22. Nov 2003
Such mal dort nach meinen 2 Beispielen, die machen so was:
Nur Zahlen und Punkte in InputBox