Devart Forums

Code: Select all

function TParser.IsInlineComment(Pos: integer): boolean;
begin
Result := (TextLength >= Pos + 2) and (Text[Pos] = '/') and (Text[Pos + 1] = '/');
end;

Code: Select all

function TParser.IsInlineComment(Pos: integer): boolean;
begin
//*** Changed by Nikolai
  Result := (TextLength >= Pos + 2) and (Text[Pos] = '-') and (Text[Pos + 1] = '-');
end;

Code: Select all

procedure TCRRecordSet.FetchAll;
var OC: TCursor; //*** <- Added by Nikolai
begin
  OC := Screen.Cursor;  Screen.Cursor:=crSQLWait;  try  //*** <- Added by Nikolai
  while Fetch do;
  finally  Screen.Cursor:=OC;  end; //*** <- Added by Nikolai
end;

Code: Select all

  function MatchesMask(St: string; Mask: string): boolean;
  const
//*** Changed by Nikolai
    Wildcard = '%';
    WildcardOne = '~';
//  Wildcard = '*';
//  WildcardOne = '_';