Some features!

[Nikolai]

Is this possible to add next features or post comment about my changes source code:

1) CRParser.pas

Code: Select all

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

??? inline comment in T-SQL started from "--" - not "//"
I think, right code will:

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;

-----------

2) What way to add mouse cursor "clock" while fetching results:
now I'm add next code in CRAccess.pas

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;

3) MemData.pas

Code: Select all

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

- I'm replace wilcards in T-SQL standard format!

Regards,
Nikolai Bochkarev,
registered user

[Ikar]

> 1) CRParser.pas

It has already done in TMyParser.

> 2) What way to add mouse cursor "clock" while fetching results:

This code has already implemented in MyDAC. Just add unit MydacVcl to "uses".

> 3) I'm replace wilcards in T-SQL standard format!

This changing can cause significant inconvenience for already existent programs that use MyDAC.

In future all questions related with discussing source code of MyDAC would be better to discuss in private correspondence by email (mydac*crlab*com).

[Guest]

It has already done in TMyParser.
...
This code has already implemented in MyDAC. Just add unit MydacVcl to "uses".

Sorry, but I'm don't understand how my SDAC linked with MyDAC?
I thought that this two different products...

[Ikar]

Sorry, this is misprint.

I mean SDAC, TMSParser and SdacVcl

[Guest]

Sorry, this is misprint.

I mean SDAC, TMSParser and SdacVcl

Ok!
Thank you for respond!