From ec7b7cf1c956bf17b60d788d73530fcbd12bf51f Mon Sep 17 00:00:00 2001 From: Vadim Dashevskiy Date: Wed, 31 Dec 2014 22:11:10 +0000 Subject: temporary revert git-svn-id: http://svn.miranda-ng.org/main/trunk@11705 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/Watrack/stat/statlog.pas | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'plugins/Watrack/stat') diff --git a/plugins/Watrack/stat/statlog.pas b/plugins/Watrack/stat/statlog.pas index f2064f42c2..5ff486747c 100644 --- a/plugins/Watrack/stat/statlog.pas +++ b/plugins/Watrack/stat/statlog.pas @@ -23,7 +23,7 @@ type Title :PAnsiChar; MFile :PAnsiChar; Album :PAnsiChar; - Next :pStatCell; // only for fill + next :pStatCell; // only for fill end; type @@ -269,12 +269,12 @@ begin result:=0; end; -procedure Resort(var Root:pCells;Sort:integer;aDirection:integer=smDirect); +procedure Resort(var Root:pCells;sort:integer;adirection:integer=smDirect); function CompareProc(First,Second:integer):integer; begin - result:=Compare(Root^.Cells[First],Root^.Cells[Second],sort); - if aDirection=smReverse then + result:=Compare(Root^.cells[First],Root^.cells[Second],sort); + if direction=smReverse then result:=-result; end; @@ -356,7 +356,7 @@ begin end else begin - CurCell^.Next:=Cell; + CurCell^.next:=Cell; CurCell:=Cell; end; end; @@ -374,7 +374,7 @@ begin while CurCell<>nil do begin arr^.Cells[i]:=CurCell; - CurCell:=CurCell.Next; + CurCell:=CurCell.next; inc(i); end; result:=arr; @@ -406,7 +406,7 @@ begin end; end; -procedure SortFile(fname:PAnsiChar;mode:integer;aDirection:integer); +procedure SortFile(fname:PAnsiChar;mode:integer;adirection:integer); var Root:pCells; buf:PAnsiChar; @@ -418,8 +418,8 @@ begin Root:=BuildTree(buf1,buf); if Root<>nil then begin - if (mode<>stArtist) or (aDirection<>smDirect) then - Resort(Root,mode,aDirection); + if (mode<>stArtist) or (adirection<>smDirect) then + Resort(Root,mode,adirection); OutputStat(buf1,Root); ClearStatCells(Root); end; -- cgit v1.2.3