ViewVC Help

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

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

Comparing ibx/trunk/runtime/nongui/IBCustomDataSet.pas (file contents):
Revision 272 by tony, Mon Feb 4 13:34:37 2019 UTC vs.
Revision 291 by tony, Fri Apr 17 10:26:08 2020 UTC

#	Line 973 | Line 973 | const
973
974		implementation
975
976	<	uses Variants, FmtBCD, LazUTF8, FBMessages, IBQuery;
976	>	uses Variants, FmtBCD, LazUTF8, IBMessages, IBQuery;
977
978		type
979
#	Line 3025 | Line 3025 | procedure TIBCustomDataSet.SetUniDirecti
3025		begin
3026		CheckDatasetClosed;
3027		FUniDirectional := Value;
3028	+	inherited SetUniDirectional(Value);
3029		end;
3030
3031		procedure TIBCustomDataSet.SetUpdateRecordTypes(Value: TIBUpdateRecordTypes);
#	Line 5256 | Line 5257 | end;
5257
5258		procedure TIBGenerator.SetQuerySQL;
5259		begin
5260	<	FQuery.SQL.Text := Format('Select Gen_ID(%s,%d) From RDB$Database',[FGeneratorName,Increment]);
5260	>	if Database <> nil then
5261	>	FQuery.SQL.Text := Format('Select Gen_ID(%s,%d) From RDB$Database',
5262	>	[QuoteIdentifierIfNeeded(Database.SQLDialect,FGeneratorName),Increment]);
5263		end;
5264
5265		function TIBGenerator.GetDatabase: TIBDatabase;
#	Line 5272 | Line 5275 | end;
5275		procedure TIBGenerator.SetDatabase(AValue: TIBDatabase);
5276		begin
5277		FQuery.Database := AValue;
5278	+	SetQuerySQL;
5279		end;
5280
5281		procedure TIBGenerator.SetGeneratorName(AValue: string);

Diff Legend

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