Edit-Feld im Exit-Ereignis prüfen

[Christian Seehase]

Moin Ati,

also ich würde die Prüfung erst einmal in eine eigene Funktion auslagern:

Delphi-Quellcode:

function IsValidLieferantenNummer(const AsLiefNr : string) : boolean;

var
  i : integer;

begin
  Result := false;
  if length(AsLiefNr) <> 6 then exit;
  for i := 1 to length(AsLiefNr) do begin
    if i <= 4 then begin
      if not (AsLiefNr[i] in ['A'..'Z']) then exit;
    end else begin
      if not (AsLiefNr[i] in ['0'..'9']) then exit;
    end;
  end;
  Result := true;
end;