paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 14:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed error in Windows section of OnLoadSaveFilename - missing ')'

Browse Source 
git-svn-id: trunk@218 -
This commit is contained in:
lazarus 2001-03-09 17:54:45 +00:00
parent 960f9acdb1
commit 0a3864ecd3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/project.pp
View File

@ -1346,7 +1346,7 @@ procedure TProject.OnLoadSaveFilename(var AFilename:string; Load:boolean);
{$ELSE} {$ELSE}
// windows // windows
Result:=(length(TheFilename)<3) or (copy(TheFilename,1,2)='\\') 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} {$ENDIF}
end; end;
@ -1399,6 +1399,9 @@ end.
{ {
$Log$ $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 Revision 1.14 2001/03/09 11:38:20 lazarus
auto load last project auto load last project