unit uHelperFunctions;

interface

function plaintext(s: string): string;

procedure LogError(FileName, Msg: string);

implementation

uses IOUtils, StrUtils, Math, SysUtils, Forms, IniFiles;

function plaintext(s: string): string;
var
  i: integer;
begin

  for i := 1 to Length(s) do
  begin

    case s[i] of

      'á', 'à', 'â', 'ä', 'ã':
        s[i] := 'a';
      'é', 'è', 'ê', 'ë':
        s[i] := 'e';
      'í', 'ì', 'î', 'ï':
        s[i] := 'i';
      'ó', 'ò', 'ô', 'ö', 'õ':
        s[i] := 'o';
      'ú', 'ù', 'û', 'ü':
        s[i] := 'u';
      'ç':
        s[i] := 'c';

      'Á', 'À', 'Â', 'Ä', 'Ã':
        s[i] := 'A';
      'É', 'È', 'Ê', 'Ë':
        s[i] := 'E';
      'Í', 'Ì', 'Î', 'Ï':
        s[i] := 'I';
      'Ó', 'Ò', 'Ô', 'Ö', 'Õ':
        s[i] := 'O';
      'Ú', 'Ù', 'Û', 'Ü':
        s[i] := 'U';
      'Ç':
        s[i] := 'C';

    end;

  end;

  plaintext := s;

end;

procedure LogError(FileName, Msg: string);
begin
  try
    TFile.AppendAllText(TPath.Combine(ExtractFilePath(Application.ExeName),
      Format('%s%s%s', [FileName, FormatDateTime('YYYY-mm-dd', Date), '.log'])),
      Format('[ERROR] %s: %s', [FormatDateTime('dd/mm/YYYY hh:mm:ss:zzz', Now),
      Msg + sLineBreak]), TEncoding.UTF8);
  except
    TFile.AppendAllText(TPath.Combine(ExtractFilePath(Application.ExeName),
      Format('ErroLog%s%s%s', [FileName, FormatDateTime('YYYY-mm-dd', Date),
      '.log'])), Format('[ERROR] %s: %s',
      [FormatDateTime('dd/mm/YYYY hh:mm:ss:zzz', Now), Msg + sLineBreak]),
      TEncoding.UTF8);
  end;
end;

end.