Procedure

SetError

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Scope

Local

Local subprogram to

Validate

Declaration

procedure SetError(const x: string);

Called-By Hierarchy


            SetError
TfrmODLab.Validate┘ 

Called-By

Name Declaration Comments
TfrmODLab.Validate procedure Validate(var AnErrMsg: string); override; -


Source

930   procedure SetError(const x: string);
931   begin
932     if Length(AnErrMsg) > 0 then AnErrMsg := AnErrMsg + CRLF;
933     AnErrMsg := AnErrMsg + x;
934   end;