Devart Forum

Код: Выделить всё

procedure TCRThreadWrapper.SetTimer;
const
  USER_TIMER_MINIMUM = $A;
begin
  if FTimer = nil then begin
    FTimer := TCRTimer.Create(nil);
    FTimer.Enabled := False;
    FTimer.Interval := USER_TIMER_MINIMUM;
    FTimer.OnTimer := DoTimer;
  end;

  Assert(not FTimer.Enabled);
  if IsMainThread then
    FTimer.Enabled := True;
end;

Код: Выделить всё

constructor TCRThreadWrapper.Create;
begin
  inherited Create;

  FLockState := {$IFDEF FPC}SyncObjs.{$ENDIF}TCriticalSection.Create;
  FThreadState := tsSuspended;
  FEvents := TThreadList.Create;
  FSendEventProcessed := TEvent.Create(nil, True, False, '');
  FThread := TCRThread.Create(Self);

  if IsMainThread then
    SetTimer
  else
    NeedToSetTimerList.Add(Self);
end;

Код: Выделить всё

procedure TForm1.Button6Click(Sender: TObject);
begin
  MSScript2.SQL.Text := 'DECLARE @I SMALLINT ' +
    'SELECT @I = 1 ' +
    ';WITH TAB (M) AS ( ' +
    'SELECT @I ' +
    'UNION ALL ' +
    'SELECT CAST(T.M + 1 AS SMALLINT) ' +
    'FROM TAB T ' +
    'WHERE T.M < 10 ' +
    ') ' +
    'SELECT * FROM TAB ' +
    'GO';
  MSScript2.Execute;
end;

Код: Выделить всё

var
  ...
  cParams: NativeUInt;
  ...
begin
  ...
  // cParams = 0, и вычитать из беззнакового числа ничего нельзя.
  for i := 0 to cParams - 1 do begin
  ...
end;

Код: Выделить всё

Ready := (FDelimiterState = dsSet) or (Code = lcEnd) or GetReady(Code);
if not Ready and (Code <> lcString) then begin
  Ready := CheckDelimeter and not IsSpecificSQL(StatementType);
  if not Ready and (FCurrDelimiter = FOwner.FDelimiter{';'}) and (FSt = '/') then begin
    if not SlashIsDelimiter then
      BlankLine := FParser.PrevCol = 0;
    if BlankLine then begin
      TempCode := FParser.GetNext(TempSt);
      if (TempCode = lcEnd) or
        (TempCode = lcBlank) and ((Pos(#13, TempSt) > 0) or (Pos(#10, TempSt) > 0))
      then
        Ready := True
      else
        FParser.Back;
    end;
  end;
end;

Код: Выделить всё

MSScript.SQL.Text := 'SELECT (10'#10#13 +
  '/'#10#13 +
  '2) AS RES';
MSScript.Execute;

Код: Выделить всё

IF(EXISTS(SELECT 1 FROM sys.objects WHERE object_id=OBJECT_ID('spTest','P')))
DROP PROCEDURE dbo.spTest
GO 
CREATE PROCEDURE dbo.spTest
(
  @ID smallint,
  @ID_TEST smallint
)  
AS
BEGIN
  DECLARE @TEST SMALLINT
  SET @TEST=10
  ;WITH M(CNT) AS
  (
    SELECT @TEST
    UNION ALL
    SELECT CAST(CNT + 1 AS SMALLINT)
    FROM M
    WHERE M.CNT < @TEST
  )
  SELECT 
    COUNT(ID) AS CNT
  FROM M
  CROSS APPLY
  (
    SELECT 
      (10 
        / 
      2) AS ID
  ) A
END

Код: Выделить всё

procedure TForm1.Button2Click(Sender: TObject);
var
  MSConnection: TMSConnection;
  MSScript: TMSScript;
begin
  MSConnection := TMSConnection.Create(Self);
  MSScript := TMSScript.Create(Self);
  try
    MSConnection.Authentication := auWindows;
    MSConnection.Server := 'db01';
    MSConnection.Database := 'master';
    MSConnection.LoginPrompt := False;

    MSScript.Connection := MSConnection;
    MSScript.SQL.LoadFromFile('D:\test.sql');

    MSScript.Execute;
  finally
    MSScript.Free;
    MSConnection.Free;
  end;
end;

Код: Выделить всё

procedure TForm1.Button2Click(Sender: TObject);
const
  qTest = 'SELECT * FROM SDAC_BUG';
begin
  MSConnection1.Open;
  MSQuery1.Options.UniqueRecords := False;
  MSQuery1.SQL.Text := qTest;
  // MSQuery1.Prepare;
  MSQuery1.Open;
  MSQuery1.Insert; // <--- Exception
  MSConnection1.Close;
end;