Search options

Hi
Maybe try something like this (see attached).
Derek.

You should create an event OnAfterData for the memo

example:

procedure Memo12OnAfterData(Sender: TfrxComponent);
var
       i: integer;
       s: string;                              
begin
       s := Memo12.Text;
       s := ReplaceStr(s, #13#10, '');                                                                     
       if ValidInt(s) then
       begin
           i:= StrToInt(s);
           if (i=1) or (i=21) or (i=31) then Memo12.Text := s + 'st'
           else if (i=2) or (i=22) then Memo12.Text := s + 'nd'
           else if (i=3) or (i=23) then Memo12.Text := s + 'rd'
           else if ((i>=4) and (i<=20)) or ((i>=24) and (i<=30)) then Memo12.Text := s + 'th';                                                                              
       end;
end;