| 502 |
|
FXSQLVAR^.sqlind := nil; |
| 503 |
|
end; |
| 504 |
|
end; |
| 505 |
+ |
Changed; |
| 506 |
|
end; |
| 507 |
|
|
| 508 |
|
procedure TIBXSQLVAR.SetSQLData(AValue: PByte; len: cardinal); |
| 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); |
| 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 |
|
|
