pascal units: [de]capitalization

Actman 30: small-small fix

git-svn-id: http://svn.miranda-ng.org/main/trunk@11439 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 8 insertions, 6 deletions

diff --git a/plugins/Utils.pas/playlist.pas b/plugins/Utils.pas/playlist.pas
index 12c7cbcf05..656317677c 100644
--- a/plugins/Utils.pas/playlist.pas
+++ b/plugins/Utils.pas/playlist.pas
@@ -62,7 +62,7 @@ type
   tM3UPlaylist = class(tPlaylist)

   private

   public

-    constructor Create(fName:pWideChar);

+    constructor Create(fname:pWideChar);

     constructor CreateBuf(buf:pointer);

   end;

 

@@ -163,19 +163,21 @@ begin
   mFreeMem(plBufW);

 end;

 

-constructor tM3UPlaylist.Create(fName:pWideChar);

+constructor tM3UPlaylist.Create(fname:pWideChar);

 var

   f:THANDLE;

   i:integer;

   plBuf:pAnsiChar;

 begin

-  f:=Reset(fName);

+  inherited;

+

+  f:=Reset(fname);

 

   if f<>THANDLE(INVALID_HANDLE_VALUE) then

   begin

     i:=integer(FileSize(f));

     if i=-1 then

-      i:=integer(GetFSize(fName));

+      i:=integer(GetFSize(fname));

     if i<>-1 then

     begin

       mGetMem(plBuf,i+1);

@@ -225,7 +227,7 @@ begin
   CloseStorage(storage);

 end;

 

-constructor tPLSPlaylist.Create(fName:pWideChar);

+constructor tPLSPlaylist.Create(fname:pWideChar);

 var

   buf:pAnsiChar;

   h:THANDLE;

@@ -283,7 +285,7 @@ begin
   end;

   plStrings:=nil;

 

-//  inherited;

+  inherited Free;

 end;

 

 procedure tPlaylist.AddLine(name,descr:pWideChar;new:boolean=true);