From da87b3fa0479333cfe9505713f6ffaa54b9ba543 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Wed, 31 Dec 2014 17:08:47 +0000
Subject: pascal code: reformat, small fixes

git-svn-id: http://svn.miranda-ng.org/main/trunk@11700 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Watrack/stat/statlog.pas | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'plugins/Watrack/stat/statlog.pas')

diff --git a/plugins/Watrack/stat/statlog.pas b/plugins/Watrack/stat/statlog.pas
index 5ff486747c..f2064f42c2 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 direction=smReverse then
+    result:=Compare(Root^.Cells[First],Root^.Cells[Second],sort);
+    if aDirection=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