paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 09:35:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Changed SaveAs to SaveToFile

Browse Source 
git-svn-id: trunk@27796 -
This commit is contained in:
michael 2014-05-16 06:39:23 +00:00
parent 3eec9996bc
commit 9916cd839b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-xml/src/xmlconf.pp
View File

@ -76,7 +76,7 @@ type
procedure OpenKey(const aPath: DOMString);
procedure CloseKey;
procedure ResetKey;
procedure SaveAs(AFileName: string);
procedure SaveToFile(AFileName: string);
function GetValue(const APath: DOMString; const ADefault: DOMString): DOMString; overload;
function GetValue(const APath: DOMString; ADefault: Integer): Integer; overload;
@ -131,11 +131,11 @@ procedure TXMLConfig.Flush;
begin
if Modified and not FReadOnly then
begin
SaveAs(FFilename)
SaveToFile(FFilename)
end;
end;
procedure TXMLConfig.SaveAs(AFileName: string);
procedure TXMLConfig.SaveToFile(AFileName: string);
begin
if AFileName <> '' then
begin