ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBCustomDataSet.pas

Comparing ibx/trunk/runtime/IBCustomDataSet.pas (file contents):
Revision 66 by tony, Wed Aug 23 08:23:42 2017 UTC vs.
Revision 67 by tony, Tue Oct 3 14:08:11 2017 UTC

#	Line 3812 | Line 3812 | begin
3812		FieldName := getSQLName;
3813		FAliasNameList[i] := DBAliasName;
3814		FieldSize := 0;
3815	<	FieldDataSize := 0;
3815	>	FieldDataSize := GetSize;
3816		FieldPrecision := 0;
3817		FieldNullable := IsNullable;
3818		CharSetSize := 0;
#	Line 3829 | Line 3829 | begin
3829		CharSetSize := 1;
3830		CharSetName := Database.Attachment.GetCharsetName(getCharSetID);
3831		Database.Attachment.CharSetID2CodePage(getCharSetID,FieldCodePage);
3832	–	FieldDataSize := GetSize;
3832		FieldSize := FieldDataSize div CharSetSize;
3833		FieldType := ftString;
3834		end;
#	Line 3844 | Line 3843 | begin
3843		FieldType := ftBCD;
3844		FieldPrecision := 4;
3845		FieldSize := -getScale;
3847	–	FieldDataSize := FieldSize;
3846		end;
3847		end;
3848		SQL_LONG:
#	Line 3869 | Line 3867 | begin
3867		FieldPrecision := 9;
3868		FieldSize := -getScale;
3869		end;
3872	–	FieldDataSize := FieldSize;
3870		end;
3871
3872		SQL_INT64:
#	Line 3884 | Line 3881 | begin
3881		end
3882		else
3883		FieldType := ftFloat;
3887	–	FieldDataSize := FieldSize;
3884		end;
3885		SQL_TIMESTAMP: FieldType := ftDateTime;
3886		SQL_TYPE_TIME: FieldType := ftTime;
#	Line 3902 | Line 3898 | begin
3898		end
3899		else
3900		FieldType := ftBlob;
3905	–	FieldDataSize := FieldSize;
3901		end;
3902		SQL_ARRAY:
3903		begin
3904		FieldSize := sizeof (TISC_QUAD);
3910	–	FieldDataSize := FieldSize;
3905		FieldType := ftArray;
3906		ArrayMetaData := GetArrayMetaData;
3907		if ArrayMetaData <> nil then

Diff Legend

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