Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2001-12

The last Windows error

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Mattias Gaertner
to Keith Bowes: I've finally fixed the compilation errors on Windows. Most of them were problems with…
Show quoted text 7 lines
I've finally fixed the compilation errors on Windows. Most of them were problems with the Win32-API interface; but the last was in components\codetools\linkscanner.pas, so I thought it would be best to report it and let those with permission to alter the source fix the minor error. Lines 1196 through 1197 need to be changed to: Result:=(copy(TheFilename,1,2)='\\') or ((length(TheFilename)>3) and (UpChars[TheFilename[1]] in ['A'..'Z']) and (TheFilename[2]=':'));

Thx. Fixed.

Mattias

Reply by email

Keith Bowes

I've finally fixed the compilation errors on Windows. Most of them were problems with the Win32-API interface; but the last was in components\codetools\linkscanner.pas, so I thought it would be best to report it and let those with permission to alter the source fix the minor error. Lines 1196 through 1197 need to be changed to:

    Result:=(copy(TheFilename,1,2)='\\') or ((length(TheFilename)>3) and
       (UpChars[TheFilename[1]] in ['A'..'Z']) and (TheFilename[2]=':'));

Reply by email