ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/2.5/FB25Statement.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/2.5/FB25Statement.pas (file contents):
Revision 60 by tony, Mon Mar 27 15:21:02 2017 UTC vs.
Revision 68 by tony, Tue Oct 17 10:07:58 2017 UTC

# Line 502 | Line 502 | begin
502        FXSQLVAR^.sqlind := nil;
503      end;
504    end;
505 +  Changed;
506   end;
507  
508   procedure TIBXSQLVAR.SetSQLData(AValue: PByte; len: cardinal);
# Line 511 | Line 512 | begin
512    FXSQLVAR^.sqldata := AValue;
513    FXSQLVAR^.sqllen := len;
514    FOwnsSQLData := false;
515 +  Changed;
516   end;
517  
518   procedure TIBXSQLVAR.SetScale(aValue: integer);
519   begin
520    FXSQLVAR^.sqlscale := aValue;
521 +  Changed;
522   end;
523  
524   procedure TIBXSQLVAR.SetDataLength(len: cardinal);
# Line 526 | Line 529 | begin
529    with FirebirdClientAPI do
530      IBAlloc(FXSQLVAR^.sqldata, 0, FXSQLVAR^.sqllen);
531    FOwnsSQLData := true;
532 +  Changed;
533   end;
534  
535   procedure TIBXSQLVAR.SetSQLType(aValue: cardinal);
536   begin
537    FXSQLVAR^.sqltype := aValue or (FXSQLVAR^.sqltype and 1);
538 +  Changed;
539   end;
540  
541   procedure TIBXSQLVAR.SetCharSetID(aValue: cardinal);
542   begin
543    if aValue <> GetCharSetID then
544 <  case SQLType of
545 <  SQL_VARYING, SQL_TEXT:
546 <      FXSQLVAR^.sqlsubtype := (aValue and $FF) or (FXSQLVAR^.sqlsubtype and not $FF);
547 <
548 <  SQL_BLOB,
549 <  SQL_ARRAY:
550 <    IBError(ibxeInvalidDataConversion,[nil]);
544 >  begin
545 >    case SQLType of
546 >    SQL_VARYING, SQL_TEXT:
547 >        FXSQLVAR^.sqlsubtype := (aValue and $FF) or (FXSQLVAR^.sqlsubtype and not $FF);
548 >
549 >    SQL_BLOB,
550 >    SQL_ARRAY:
551 >      IBError(ibxeInvalidDataConversion,[nil]);
552 >    end;
553 >  Changed;
554    end;
555   end;
556  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines