Hi,
The following doesn't work. Could you please tell me how best to do this?
if (InspName=eapStrTodaysDateInFull) then
begin
DecodeDate(Date,Y,M,D);
case D of
1,21,31:S:='st';
2,22:S:='nd';
3,23:S:='rd';
else
S:='th';
end;
Contents.StringValue:='';
Contents.MergePar.Append(IntToStr(D));
Contents.MergePar.AppendChar(S[1],WPSTY_SUPERSCRIPT);
Contents.MergePar.AppendChar(S[2],WPSTY_SUPERSCRIPT);
Contents.MergePar.Append(' '+FormatDateTime('mmmm yyyy',Date));
end else
...
Thanks,
Ken