You've already forked lazarus-ccr
* Fix compilation under fpc 2.24 and under unix
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1046 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@@ -473,9 +473,10 @@ var // Clipboard format IDs used in OLE drag'n drop and clipboard transfers.
|
||||
// and to allow for check of system dependent hint animation.
|
||||
IsWinVistaOrAbove: Boolean;
|
||||
|
||||
{$MinEnumSize 1, make enumerations as small as possible}
|
||||
|
||||
type
|
||||
{$ifdef VER2_2}
|
||||
UnicodeString = WideString;
|
||||
{$endif}
|
||||
|
||||
// The exception used by the trees.
|
||||
EVirtualTreeError = class(Exception);
|
||||
@@ -4741,7 +4742,7 @@ begin
|
||||
end;
|
||||
|
||||
Len := Length(Result) - Length(LineEnding);
|
||||
if StrLComp(PChar(@Result[Len + 1]), PChar(@LineEnding[1]), Length(LineEnding)) = 0 then
|
||||
if CompareByte(Result[Len + 1], LineEnding, Length(LineEnding)) = 0 then
|
||||
SetLength(Result, Len);
|
||||
end;
|
||||
|
||||
|
Reference in New Issue
Block a user