Edit eingabe begrenzen (nur EIN Komma)

[Tau]

Hallo Leute

ich habe ein Editfeld in dem möcht ich eine Zahl mit Komma Stelle eingeben.
Die einschränkung für das eingeben von nur Zahlen inkl. Komma ist kein Problem.

Wie kann ich es anstellen das nur Ein Komma eingegeben wird.

Gruss Tau

[Luckie]

Kuck mit pos im OnChange Ereignis des Edits, ob ein Komma da ist. Wenn ja, dann setzt du eine boolsche Variable auf True und wenn diese True ist, verhinderst du im OnKeyPress dass ein weiteres Komma eingeben werden kann.

[Dani]

Hi,

da fällt mir nur eine Schleife durch alle Zeichen ein :-/

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var i, count: Integer;
    s: String;
begin
 count := 0;
 s := Edit1.Text;
 for i:=Length(s) downto 1 do
  begin
   If s[i] = ',' then
    begin
     inc(count);
     If count > 1 then
      Delete(s, i, 1);
    end;
  end;
 
 If count > 1 then
  begin
   Edit1.Text := s;
   Edit1.SelStart := MaxInt;
  end;
end;

Edit: Luckies Methode klingt eleganter allerdings würde ich statt einer boolschen Variable die Eigenschaft TEdit.Tag benutzen. Was dann noch bleibt, ist das Problem, wenn der User per Copy&Paste einen falschen Wert einfügt...

[Luckie]

Zitat von Dani:

da fällt mir nur eine Schleife durch alle Zeichen ein :-/

Und warum? Pos gibt dir genau den Index des gefundenen Zeichens zurück.

[Dani]

Schon, aber doch nur den des ersten Vorkommnisses? Damit weiß er ja noch nicht, wie oft das Zeichen enthalten ist?!

[Luckie]

Wieso? Wenn ich das im OnChange prüfe, dann weiß ich doch sofort, ob ein Komma eingegeben wurde. Und wenn dann im OnKeyPress noch ein Komma kommt, schicke ich es in das Tastatur-Nirvana. das sollte um einiges performanter sein, als deine Lösung mit der Schleife.

[Dani]

Zitat:

das sollte um einiges performanter sein, als deine Lösung mit der Schleife

Das ist es auch, aber wenn der Benutzer einen falschen Wert per Copy&Paste einfügt, wird der ohne Prüfung übernommen.

[Luckie]

Das sollte auch ein OnChange auslösen.

[Hansa]

So geht das :

Benutze am besten das OnKeyPress.

Delphi-Quellcode:

procedure TRealEdit.KeyPress(var Key: Char);
begin
  inherited;
  if Pos(DecimalSeparator, Text) = 0 then  // einen . im RealEdit.text zulassen
    ZulZeichen := ZulZeichen + [DecimalSeparator]
  else
    ZulZeichen := ZulZeichen - [DecimalSeparator]; // zweiten .  verhindern
  if not (Key in ZulZeichen) then
    Key := #0;
end;

ZulZeichen ist in diesem Fall '0'..'9', also ein Set. Auch mit C+P ist es mir dabei nicht gelungen einen 2. Decimalseparator einzufügen.

[EDIT1] Vom OnChange ist abzuraten. 8)
[EDIT2] Keypress wird viel früher abgearbeitet. Wozu noch das ganze Edit dauernd überwachen ? Lieber nur einen Tastendruck.

[Tau]

Hallo Hansa

deine Lösung gefällt mir mit abstand am besten
mir ist noch nicht ganz klar was du für einen Daten Type bei der
Deklaration von ZulZeichen und DezimalSeparator verwendest.

Gruss
Tau