Brauche ein Prüfziffer-berechner.. :-/

[Matze]

2 Hinweise: Nur Zahlen lässt man im Edit so zu (hättest du auch übr die Suche gefunden):

Delphi-Quellcode:

procedure TFormSettings.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#48..#57, #8]) then
    key := #0;
end;

Im Objektinspector siehst du, dass ein Edit die Eigenschaft MaxLength besitzt, die die maximale Anzahl der Zeichen festlegt, die eingegeben werden können. Stellst du das auf 1, wird nur 1 Zeichen zugelassen.


Nachtrag: herzlich willkommen