* 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:
blikblum
2009-12-12 21:19:16 +00:00
parent a8f48f3906
commit db29d2cbfb

View File

@@ -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;