Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

In this Discussion

Bug in LMDFileCreate (LMDFiles.pas) when getting SVN-Version

BernhardGeyer
edited December 2011 in LMD IDE-Tools Vote Up0Vote Down
Following lines must be delete:

<<<<<<< .mine
{$IFDEF D+}
{$R+}
{$ENDIF D+}
  0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));
=======
>>>>>>> .r8939

Comments

  • 3 Comments sorted by Votes Date Added
  • Alexander Hramov
    Posts: 0 Accepted Answer Vote Up0Vote Down
    We haven't such lines in LMDFiles.pas from svn.

    function LMDFileCreate(const FileName: TLMDString): THandle;
    begin
      {$IFDEF LMD_UNICODE}
      Result := Integer(CreateFileW(PWideChar(FileName), GENERIC_READ or GENERIC_WRITE, 0,
        nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));
      {$ELSE}
      Result := Integer(Windows.CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0,
        nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));
      {$ENDIF}
    end;
  • BernhardGeyer
    edited January 2012 Posts: 69Vote Up0Vote Down
    Ok. So it seem that there was done a merge on my checkout-directory.
Sign In or Register to comment.