Form Builder

uses
  sgcHTML_Component_Form, sgcHTML_Component_FormBuilder;

// フォーム上に TsgcHTMLComponent_Form (Form1) と
// TsgcHTMLComponent_FormBuilder (FormBuilder1) を置き、Form = Form1 にします

procedure TMainModule.FormBuilder1Save(Sender: TObject; const aJSON: string;
  var aAccept: Boolean; var aErrorMessage: string);
begin
  // aJSON は正規化された定義で、サーバーが検証済みです
  StoreDefinition('contact', aJSON);   // 独自のストア: ファイルやテーブルなど
end;

// 公開ページ: リクエストごとに 1 つのフォームを、保存されたデザインから読み込みます
function TMainModule.ContactPage: string;
var
  oForm: TsgcHTMLComponent_Form;
begin
  oForm := TsgcHTMLComponent_Form.Create(nil);
  try
    oForm.Action := '/f/contact';
    oForm.LoadFromJSON(ReadDefinition('contact'));
    Result := oForm.HTML;
  finally
    oForm.Free;
  end;
end;

// 送信時: 検証してから、型付きの値を保持します
function TMainModule.ContactPost(const aParams: TStrings): string;
var
  oForm: TsgcHTMLComponent_Form;
  oErrors: TStringList;
begin
  oForm := TsgcHTMLComponent_Form.Create(nil);
  oErrors := TStringList.Create;
  try
    oForm.LoadFromJSON(ReadDefinition('contact'));
    if oForm.Validate(aParams, oErrors) then
    begin
      StoreResponse('contact', oForm.GetValuesJSON(aParams));
      Result := ThankYouPage;
    end
    else
      Result := oForm.GetValidationResponse(oErrors);
  finally
    oErrors.Free;
    oForm.Free;
  end;
end;