Validering

Hej.

Jeg forsøger at indarbejde noget validering på en form med 3 indtastningsmuligheder og en OK og annuller knap.

Dertil har jeg lavet en funktion...

Function Validering: boolean;

... som jeg kalder fra OK-knappens onclick event med...

If Validering = true then

... hvorefter der sker et resultat.


Funktionen Validering ser nogenlunde sådan ud :

function Tform4.Validering: boolean;
begin
  Result := true;

  //Validering 1
  If strtoint(edit1.Text) <> VARIABEL then
  begin
    Result := false;
    showMessage('Fejlinformation til brugeren');
  end;

  // Validering 2
  If strToDate(edit2.Text) > now then
  begin
    Result := false;
    showMessage('Fejlinformation til brugeren');
  end;

// Validering 3 osv.
...
end;

Ovenstående fungerer efter hensigten, når der kun er 1 fejl i rækken af muligheder jeg validerer på.

Men er der 2+ fejl, så kommer der først en boks frem med første fejlbeskrivelse. Når der klikkes OK kommer næste boks frem osv.

Er der en smartere måde at validere inputtet på eller kan man lave noget ala try-finally-end, hvor man så snart den første fejl dukker op stopper funktionen og undlader at validere resten