Mehrfach Eingabe verhindern

[Aenogym]

hi,

einfach mal im OnKeyPress des Edits folgendes:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(sender, TPBject; key: char);
begin
  if key = ',' then
  begin
    if pos(edit1.text, ',') > -1 then
      key := #0;
  end;
end;

sollte so funktionieren...

Aenogym

edit: das liebe ich an der DP. fünf millionen mal die gleiche antwort