paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

updatepofiles now checks if something changed

Browse Source 
git-svn-id: trunk@3817 -
This commit is contained in:
mattias 2003-01-18 19:47:38 +00:00
parent bdde53caf9
commit f764105c7e
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tools/updatepofiles.pas
View File

@ -229,6 +229,8 @@ var
DestFile: TStringList; DestFile: TStringList;
Node: TAVLTreeNode; Node: TAVLTreeNode;
MsgItem: PMsgItem; MsgItem: PMsgItem;
Save: Boolean;
OldDestFile: TStringList;
begin begin
//writeln(Prefix,'Saving ',Filename,' ...'); //writeln(Prefix,'Saving ',Filename,' ...');
DestFile:=TStringList.Create; DestFile:=TStringList.Create;
@ -244,7 +246,15 @@ begin
WriteMessageItem(MsgItem,DestFile); WriteMessageItem(MsgItem,DestFile);
Node:=PoFile.Tree.FindSuccessor(Node); Node:=PoFile.Tree.FindSuccessor(Node);
end; end;
DestFile.SaveToFile(Filename); Save:=true;
if FileExists(Filename) then begin
OldDestFile:=TStringList.Create;
OldDestFile.LoadFromFile(Filename);
if OldDestFile.Text=DestFile.Text then Save:=false;
OldDestFile.Free;
end;
if Save then
DestFile.SaveToFile(Filename);
DestFile.Free; DestFile.Free;
end; end;