Delphi JEDI Validate

需先安裝 JEDI VCL for Delphi
在 Form 中
放入 TMemo 顯示訊息
放入 TEdit 作為驗證資料輸入欄
放入 TButton 執行驗證

放入 Jv Validators -> TJvValidationSummary
放入 Jv Validators -> TJvErrorIndicator
放入 Jv Validators -> TJvValidators

修改 JvValidators1 屬性 
    ValidationSummary = JvValidationSummary1
    ErrorIndicator = JvErrorIndicator1

用滑鼠雙擊 JvValidators1 元件會顯示 JvValidator Item Editor...
或是在JvValidators1 元件上用滑鼠右鍵選擇 JvValidator Item Editor...
    新增一個 Required Field Validator
    修改 JvRequiredFieldValidator1 屬性
      ControlToValidate = Edit1
      PropertyToValidate = 'Text'
      ErrorMessage = 'Not Empty'


加入 Form1 OnCreate 事件
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
  Edit1.Clear;
end;

加入 Button1 onclick 事件
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  if not JvValidators1.Validate then begin
    Memo1.Lines := JvValidationSummary1.Summaries;
  end;
end;

執行程式，按下 Button1 作驗證