Strange behavior with RTFVariables!

Dakota

Hello:

I load a few RTFVariables into a dialog box for my users to edit, then store them back into the document, however, the contents of the last one 'Company' actually shows up on the 1st page of the document!

Any Ideas?

Dale

A code snippet is below:

Code

PropDlg := TDocPropertiesDlg.Create(Application);
    try 
      PropDlg.txtTitle.Text := WpMemo.RTFVariables.Strings['Title'];
      PropDlg.txtSubject.Text := WpMemo.RTFVariables.Strings['Subject'];
      PropDlg.txtComment.Text := WpMemo.RTFVariables.Strings['DocComm'];
      PropDlg.txtAuthor.Text := WpMemo.RTFVariables.Strings['Author'];
      PropDlg.txtCompany.Text := WpMemo.RTFVariables.Strings['Company'];
      if (PropDlg.ShowModal = mrOK) then begin
        WpMemo.RTFVariables.Strings['Title'] := PropDlg.txtTitle.Text;
        WpMemo.RTFVariables.Strings['Title'] := PropDlg.txtTitle.Text;
        WpMemo.RTFVariables.Strings['Subject'] := PropDlg.txtSubject.Text;
        WpMemo.RTFVariables.Strings['DocComm'] := PropDlg.txtComment.Text;
        WpMemo.RTFVariables.Strings['Author'] := PropDlg.txtAuthor.Text;
        WpMemo.RTFVariables.Strings['Company'] := PropDlg.txtCompany.Text;
        WpMemo.Modified := True;
      end;
    finally
      PropDlg.Free;
    end;

Alles anzeigen

support

A few variables are written differently:

WPRtfWriteRTF:

if (s = 'manager') or (s = 'company') or (s = 'category') or (s = 'hlinkbase') then
s := '{\' + s + #32
else s := '{\*\' + s + #32;

this means in the RTF there is {\company ....}

You can comment the code

(* if (s = 'manager') or (s = 'company') or (s = 'category') or (s = 'hlinkbase') then
s := '{\' + s + #32
else *)

and it should be ok ofr now.

I check why the reader does not handle \company

Dakota

Thanks for the explanation.

I don't think many of my customers have used RTF Variables yet, so instead of commenting out your code, I'm going to change the variable name to 'CompanyName'.

Dale