[JVCL-Checkins] dev/JVCL3/run JvDragDrop.pas,1.16,1.17 - Filename has unnecessary #0 at end

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7554/run

Modified Files:
	JvDragDrop.pas 
Log Message:
Filename has unnecessary #0 at end


Index: JvDragDrop.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDragDrop.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** JvDragDrop.pas	1 Sep 2004 15:06:37 -0000	1.16
--- JvDragDrop.pas	25 Jan 2005 21:37:23 -0000	1.17
***************
*** 678,686 ****
                Len := DragQueryFile(DragH, I, nil, 0);
                if Len > 0 then
!                 Inc(Len);
!               SetLength(Name, Len);
!               if Len > 0 then
                  DragQueryFile(DragH, I, PChar(Name), Len);
!               List.Add(Name);
              end;
            Result := Count;
--- 678,686 ----
                Len := DragQueryFile(DragH, I, nil, 0);
                if Len > 0 then
!               begin
!                 SetLength(Name, Len);
                  DragQueryFile(DragH, I, PChar(Name), Len);
!                 List.Add(Name);
!               end;
              end;
            Result := Count;