From 0a3864ecd3ee9be8384f7b858d542cf270d5e9fc Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Fri, 9 Mar 2001 17:54:45 +0000
Subject: [PATCH] Fixed error in Windows section of OnLoadSaveFilename -
 missing ')'

git-svn-id: trunk@218 -
---
 ide/project.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ide/project.pp b/ide/project.pp
index 6f3d5da2ff..ca3d98ffb2 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -1346,7 +1346,7 @@ procedure TProject.OnLoadSaveFilename(var AFilename:string; Load:boolean);
     {$ELSE}
     // windows
     Result:=(length(TheFilename)<3) or (copy(TheFilename,1,2)='\\')
-        or ((upcase(TheFilename[1]) in ['A'..'Z']) and (copy(TheFilename,2,2)=':\');
+        or ((upcase(TheFilename[1]) in ['A'..'Z']) and (copy(TheFilename,2,2)=':\'));
     {$ENDIF}
   end;
 
@@ -1399,6 +1399,9 @@ end.
 
 {
   $Log$
+  Revision 1.15  2001/03/09 17:54:45  lazarus
+  Fixed error in Windows section of OnLoadSaveFilename - missing ')'
+
   Revision 1.14  2001/03/09 11:38:20  lazarus
   auto load last project