Procházet zdrojové kódy

* Correct the wrong code commented out by last commit

pierre před 23 roky
rodič
revize
84b5d460ea
1 změnil soubory, kde provedl 5 přidání a 2 odebrání
  1. 5 2
      ide/wwinhelp.pas

+ 5 - 2
ide/wwinhelp.pas

@@ -268,7 +268,7 @@ end;
 
 procedure TTopicBlock.Read(var Buf; Count: longint);
 begin
-  {FillChar(Buf,Sizeof(Buf),Count);}
+  FillChar(Buf,Count,0);
   if Count>(DataSize-CurOfs) then
   begin
     Count:=Max(0,DataSize-CurOfs);
@@ -1677,7 +1677,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.4  2002-11-27 20:07:03  peter
+  Revision 1.5  2002-11-28 08:44:19  pierre
+   * Correct the wrong code commented out by last commit
+
+  Revision 1.4  2002/11/27 20:07:03  peter
     * removed wrong fillchar statement
 
   Revision 1.3  2002/09/07 15:40:50  peter