summaryrefslogtreecommitdiff
path: root/plugins/Watrack/stat/statlog.pas
diff options
context:
space:
mode:
authorVadim Dashevskiy <watcherhd@gmail.com>2014-12-31 22:11:10 +0000
committerVadim Dashevskiy <watcherhd@gmail.com>2014-12-31 22:11:10 +0000
commitec7b7cf1c956bf17b60d788d73530fcbd12bf51f (patch)
tree45450baf5b76d8e57b9f198cb1fd9f8db9a6d31f /plugins/Watrack/stat/statlog.pas
parent813851def848b52b92f59c379706ada6bebceba9 (diff)
temporary revert
git-svn-id: http://svn.miranda-ng.org/main/trunk@11705 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Watrack/stat/statlog.pas')
-rw-r--r--plugins/Watrack/stat/statlog.pas18
1 files changed, 9 insertions, 9 deletions
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;