Delphi ActiveX

Get a Mail-Merge Replace Pattern

Demonstrates the Chilkat Email.GetReplacePattern method, which returns a replacement pattern — the search string — previously defined for mail-merge operations with SetReplacePattern. The index is zero-based. This example defines two patterns and enumerates them.

Background: In Chilkat's mail-merge, each entry is a pattern (a placeholder token such as FIRST_NAME) paired with a replacement string. GetReplacePattern retrieves the search side of the pair at a given index; GetReplaceString retrieves the matching replacement. Reading them back is useful for inspecting or logging exactly which substitutions will be applied when the message is sent.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
email: TChilkatEmail;
n: Integer;
i: Integer;

begin
//  Demonstrates the GetReplacePattern method, which returns a replacement pattern (the
//  search string) previously defined for mail-merge operations with SetReplacePattern.
//  The index is zero-based.

email := TChilkatEmail.Create(Self);
email.Subject := 'Hello FIRST_NAME';
email.Body := 'Dear FIRST_NAME, welcome to CITY.';

email.SetReplacePattern('FIRST_NAME','John');
email.SetReplacePattern('CITY','Denver');

n := email.NumReplacePatterns;

for i := 0 to n - 1 do
  begin
    Memo1.Lines.Add('Pattern ' + IntToStr(i) + ': ' + email.GetReplacePattern(i));
  end;