ViewVC Help

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

root/public/ibx/branches/udr/udr/source/FBUDRUtils.pas

Comparing ibx/branches/udr/udr/source/FBUDRUtils.pas (file contents):
Revision 371 by tony, Wed Jan 5 15:21:22 2022 UTC vs.
Revision 373 by tony, Thu Jan 6 14:14:57 2022 UTC

#	Line 247 | Line 247 | begin
247		Result := ValTrue
248		else
249		Result := ValFalse;
250	<	end;
251	<
250	>	end;
251	>
252		{ TFBUDRMessageMetadata }
253
254		constructor TFBUDRMessageMetadata.Create(context: IFBUDRExternalContext;
#	Line 674 | Line 674 | end;
674
675		function TFBUDRExternalContext.HasConfigFile: boolean;
676		begin
677	<
677	>	Result := Controller.HasConfigFile;
678		end;
679
680		function TFBUDRExternalContext.ReadConfigString(Section, Ident,
681		DefaultValue: AnsiString): AnsiString;
682		begin
683	<	Result := FController.ReadConfigString(Section, Ident, DefaultValue);
683	>	Result := Controller.ReadConfigString(Section, Ident, DefaultValue);
684		end;
685
686		function TFBUDRExternalContext.ReadConfigInteger(Section, Ident: AnsiString;
687		DefaultValue: integer): integer;
688		begin
689	<	Result := FController.ReadConfigInteger(Section, Ident, DefaultValue);
689	>	Result := Controller.ReadConfigInteger(Section, Ident, DefaultValue);
690		end;
691
692		function TFBUDRExternalContext.ReadConfigBool(Section, Ident: AnsiString;
693		DefaultValue: boolean): boolean;
694		begin
695	<	Result := FController.ReadConfigBool(Section, Ident, DefaultValue);
695	>	Result := Controller.ReadConfigBool(Section, Ident, DefaultValue);
696		end;
697
698		procedure TFBUDRExternalContext.WriteToLog(Msg: AnsiString);
699		begin
700	<	FController.WriteToLog(Msg);
700	>	Controller.WriteToLog(Msg);
701		end;
702
703

Diff Legend

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