mORMot Open Source

procedure SynLogException(const Ctxt: TSynLogExceptionContext);
...
      // minimal exception logging to all other TSynLog files (to ease debug)
      for i := 0 to high(SynLogFamily) do
      begin
        fam := SynLogFamily[i];
        if (fam <> HandleExceptionFamily) and // if not already logged above
           (Ctxt.ELevel in fam.Level) then
        try
          DoLogException(fam.fGlobalLog, Ctxt);
        except

 
procedure LogHeaderNoRecursion(WR: TJsonWriter; const Level: TSynLogLevel;
  TimeStampAndThreadNum: PShortString);
  {$ifdef HASINLINE} inline; {$endif}
begin
  WR.AddShort(TimeStampAndThreadNum^);

var
  va1, va2: TVariantDynArray;
begin
  SetLength(va1, 2);
  va1[0] := 'true';
  va1[1] := 'false';
  SetLength(va2, 2);
  va2[0] := 'True';
  va2[1] := 'False';
  ShowMessage(DynArrayEquals(TypeInfo(TVariantDynArray), va1, va2, Nil, Nil, {CaseInsensitive=}True).ToString(TUseBoolStrs.True));

const
  HTTP_CODE: array[0..44] of Word = (
    HTTP_SUCCESS,
    HTTP_NOCONTENT, ...

type
  PHttpStatusCodeMessages = ^THttpStatusCodeMessages;
  THttpStatusCodeMessages = array[0..High(HTTP_CODE)] of RawUtf8;
 
function StatusCodeToText(Code: cardinal; StatusCodeMessages: PHttpStatusCodeMessages = Nil): PRawUtf8;
var
  i: PtrInt;
begin
  if StatusCodeMessages = Nil then
    StatusCodeMessages := @HTTP_REASON;
  ...

const
  HTTP_REASON_DE: THttpStatusCodeMessages = (
    'OK',                                // HTTP_SUCCESS - should be first
    'Kein Inhalt',                       // HTTP_NOCONTENT 
    'Temporäre Weiterleitung',           // HTTP_TEMPORARYREDIRECT
	...
  );

ShowMessage(Utf8ToString(StatusCodeToText(HTTP_NOCONTENT, @HTTP_REASON_DE)^));

/// fast conversion of the supplied text into 8-bit uppercase
// - this will not only convert 'a'..'z' into 'A'..'Z', but also accentuated
// latin characters ('e' acute into 'E' e.g.), using NormToUpper[] array
// - it will therefore decode the supplied UTF-8 content to handle more than
// 7-bit of ascii characters (so this function is dedicated to WinAnsi code page
// 1252 characters set)

var
  ul, uh: RawUtf8;
begin
  // Windows-1252 character set
  // Ordinal numbers (decimal), https://de.wikipedia.org/wiki/Windows-1252
  // - é (lower case): 233
  // - É (upper case): 201
  ul := UTF8Encode('étudiant');
  uh := UTF8Encode('Étudiant');  
  // Result: ETUDIANT, Expected: ÉTUDIANT
  ShowMessage(Utf8ToString(mormot.core.unicode.UpperCaseU(ul)));
  // Result: etudiant, Expected: étudiant  
  ShowMessage(Utf8ToString(mormot.core.unicode.LowerCaseU(uh)));  

function BuildLikeExpression(const aTermList: array of const): RawUtf8; overload;
const
  LIKE_WILDCARD: array[TSqlLikePlaceholder] of RawUtf8 = ('%', '_');
var
  TermIdx: Integer;
  TermLiteral: RawUtf8;
  PLikeTerm: PVarRec;
begin
  for TermIdx := 0 to High(aTermList) do
  begin
    PLikeTerm := @aTermList[TermIdx];
    case PLikeTerm^.VType of
      vtString, vtAnsiString, vtUnicodeString:
        begin
          VarRecToUtf8(PLikeTerm^, TermLiteral);
          Result := Result + TermLiteral;
        end;
      vtInteger:
        case PLikeTerm^.VInteger of
          Ord(TSqlLikePlaceholder.Any):
            Result := Result + LIKE_WILDCARD[TSqlLikePlaceholder.Any];
          Ord(TSqlLikePlaceholder.One):
            Result := Result + LIKE_WILDCARD[TSqlLikePlaceholder.One];
        end;
    end;
  end;
  Result := ' LIKE ' + mormot.core.unicode.QuotedStr(Result);
end;

function BuildLikeExpression(const aTermList: TVariantDynArray): RawUtf8; overload;
var
  TermIdx: Integer;
  TermLiteral: RawUtf8;
  TermArrayOfConst: TTVarRecDynArray;
  PLikeTerm: PVarRec;
begin
  SetLength(TermArrayOfConst, Length(aTermList));
  for TermIdx := 0 to High(TermArrayOfConst) do
  begin
    PLikeTerm := @TermArrayOfConst[TermIdx];
    case TVarData(aTermList[TermIdx]).VType of
      varString, varUString:
        begin
          TermLiteral := VariantToUtf8(aTermList[TermIdx]);
          PLikeTerm^.VType := vtAnsiString;
          PLikeTerm^.VAnsiString := Pointer(TermLiteral);
        end;
      varByte:
        begin
          PLikeTerm^.VType := vtInteger;
          PLikeTerm^.VInteger := TVarData(aTermList[TermIdx]).VByte;
        end;
    end;
  end;
  Result := BuildLikeExpression(TermArrayOfConst);
end;

// Result: LIKE '_Test%BlaBla_'  <== OK  (with parameter "array of const")
BuildLikeExpression([Ord(TSqlLikePlaceholder.One), 'Test', Ord(TSqlLikePlaceholder.Any), 'BlaBla', Ord(TSqlLikePlaceholder.One)])

// Result: LIKE '__%BlaBla_'  <== False  (with parameter "VariantDynArray")
BuildLikeExpression([TSqlLikePlaceholder.One, 'Test', TSqlLikePlaceholder.Any, 'BlaBla', TSqlLikePlaceholder.One])

// Result: LIKE '_Test%BlaBla_'  <== OK  (with parameter "VariantDynArray")
BuildLikeExpression([TSqlLikePlaceholder.One, RawUtf8('Test'), TSqlLikePlaceholder.Any, 'BlaBla', TSqlLikePlaceholder.One])

if i = 1 then
  result := S
else
  FastSetString(result, @PByteArray(S)[i - 1], l - i + 1);

function TSynLogFileView.SearchPreviousText(const aPattern: RawUtf8; aRow: integer): PtrInt;
...  
  // search from end
  // for result := fCount - 1 downto aRow + 1 do  <= This line should be changed
  for result := fSelectedCount - 1 downto aRow + 1 do
    if LineContains(aPattern, fSelected[result]) then
      exit;