ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/ibxscript.pas
(Generate patch)

Comparing ibx/trunk/runtime/nongui/ibxscript.pas (file contents):
Revision 287 by tony, Thu Apr 11 08:51:23 2019 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

# Line 1211 | Line 1211 | var
1211   begin
1212    TextOut := TStringList.Create;
1213    try
1214 <    s := Format('<array dim = "%d" sqltype = "%d" length = "%d" relation_name = "%s" column_name = "%s"',
1215 <                                [ar.GetDimensions,ar.GetSQLType,ar.GetSize,
1214 >    if ar.GetCharSetWidth = 0 then
1215 >      s := Format('<array dim = "%d" sqltype = "%d" length = "%d" relation_name = "%s" column_name = "%s"',
1216 >                              [ar.GetDimensions,ar.GetSQLType,ar.GetSize,
1217 >                               ar.GetTableName,ar.GetColumnName])
1218 >    else
1219 >      s := Format('<array dim = "%d" sqltype = "%d" length = "%d" relation_name = "%s" column_name = "%s"',
1220 >                                [ar.GetDimensions,ar.GetSQLType,ar.GetSize div ar.GetCharSetWidth,
1221                                   ar.GetTableName,ar.GetColumnName]);
1222      case ar.GetSQLType of
1223      SQL_DOUBLE, SQL_FLOAT, SQL_LONG, SQL_SHORT, SQL_D_FLOAT, SQL_INT64:
# Line 1912 | Line 1917 | begin
1917    FOwnsInStream := false;
1918    FLineIndex := 1;
1919    FIndex := 1;
1920 +  FCurLine := '';
1921   end;
1922  
1923   procedure TBatchSQLStatementReader.SetStreamSource(Lines: TStrings);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines