InputMergeField Parameters- Can I store Format in Command?

I am working with the Mail Merge and trying to get a handle on how to specify formatting for numeric fields. I'm getting a little confused by the difference in names between the objects and the documentation. I'm posting this here to try and get confirmation that I am using these objects correctly and if so maybe it can be helpful to others.

InputMergeField takes the following paramaters: (The following is from the WPTools help file)

Zitat

FieldName: string the name of the field
DisplayText: string the default text for the field. It is stored in txtobj.Params
Command: string the optional commands for the field - they will be stored in txtobj.Source.
Format: Integer an optional value to specify the format. It will be stored in txtobj.IParam.
DisplayChar: Integer an optional which will be attached to the field. It will be stored in txtobj.CParam. It should not be used.

What I really want is to store a format string. There is a field called Format and I guess I could define a set of integers for some fixed formats but "Command" looks like a better option to me.

DisplayText is confusing to me. I found that it does Initially set the default value. However, if the text shown in the field is edited in the document then Params is not updated. And if Params is updated on the Merge object the text in the document is not changed. I'm not sure when Params would ever be used after the initial call to InputMergeField.

So in my Template Editor I have two boxes. One to enter a field name and one to enter a format.

I have two events to deal with field. When the cursor position changes if I am on a field copy the field information to my input boxes:

procedure TAgToolsEditor.WPRichTextChangeCursorPos(Sender: TObject);var  CurrentField: TWPTextObj;begin  CurrentField := WPRichText.FieldAtCP;  if CurrentField <> nil then  begin    cboCustomField.Text := CurrentField.Name;    cboFormat.Text := CurrentField.Source;  endend;

Then I have an "Add Field" button will either update or insert a new field. When updating a field I am re-setting the Params field. However that does not seem to matter. The text I see in the document will not change.

procedure TAgToolsEditor.cmdAddCustomClick(Sender: TObject);var  CurrentField: TWPTextObj;  DefaultText: string;  i: integer;begin  CurrentField := WPRichText.FieldAtCP;  if CurrentField <> nil then  begin    CurrentField.Name := cboCustomField.Text;    CurrentField.Params := cboCustomField.Text;    CurrentField.Source := cboFormat.Text;    WPRichText.ReformatAll(false, true);  end  else  begin    i := LastDelimiter('.',  cboCustomField.Text);    if (i > 0) then      DefaultText := RightStr(cboCustomField.Text, Length(cboCustomField.Text) - i)    else      DefaultText := cboCustomField.Text;    WPRichText.InputMergeField(cboCustomField.Text, DefaultText, cboFormat.Text);  end;end;

Then in my merge code I pull out the Format string. Now stored in a "Command" field instead of the source property we used above.

procedure TWPViewer.WPRichTextMailMergeGetText(Sender: TObject;
  const inspname: string; Contents: TWPMMInsertTextContents);
var
  InputString: string;
  OutputString: string;
  TempCurr: currency;


begin
  InputString := FSaleBinding.GetSaleData(inspname);


  if TryStrToCurr(InputString, TempCurr) then
  begin
    if Contents.Command <> '' then
      OutputString := FormatCurr(Contents.Command, TempCurr)
    else
      OutputString := FormatCurr(',0.####;-,0.####', TempCurr)
  end
  else
  begin
    OutputString := InputString;
  end;


  Contents.StringValue := OutputString;


end;

Thanks for the input.

So far everything has been working great. It sounds like I am on the right track.