From d83baeb842ea828eaee90a0cd6575872a95240e8 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Sat, 8 Mar 2014 13:10:05 +0000
Subject: Pascal-style type correction Letter case correction small fixes
 Actman UA part dialog slightly changed

git-svn-id: http://svn.miranda-ng.org/main/trunk@8473 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Utils.pas/io.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'plugins/Utils.pas/io.pas')

diff --git a/plugins/Utils.pas/io.pas b/plugins/Utils.pas/io.pas
index 9a587c660f..d772781144 100644
--- a/plugins/Utils.pas/io.pas
+++ b/plugins/Utils.pas/io.pas
@@ -216,7 +216,7 @@ end;
 
 function DirectoryExists(Directory:PAnsiChar):Boolean;
 var
-  Code: Integer;
+  Code: integer;
 begin
   Code := GetFileAttributesA(Directory);
   Result := (Code<>-1) and ((Code and FILE_ATTRIBUTE_DIRECTORY)<>0);
@@ -224,7 +224,7 @@ end;
 
 function DirectoryExists(Directory:PWideChar):Boolean;
 var
-  Code: Integer;
+  Code: integer;
 begin
   Code := GetFileAttributesW(Directory);
   Result := (Code<>-1) and ((Code and FILE_ATTRIBUTE_DIRECTORY)<>0);
@@ -232,7 +232,7 @@ end;
 
 function FileExists(fname:PAnsiChar):Boolean;
 var
-  Code: Integer;
+  Code: integer;
 begin
   Code := GetFileAttributesA(fname);
   Result := (Code<>-1) and ((Code and FILE_ATTRIBUTE_DIRECTORY)=0);
@@ -240,7 +240,7 @@ end;
 
 function FileExists(fname:PWideChar):Boolean;
 var
-  Code: Integer;
+  Code: integer;
 begin
   Code := GetFileAttributesW(fname);
   Result := (Code<>-1) and ((Code and FILE_ATTRIBUTE_DIRECTORY)=0);
-- 
cgit v1.2.3