* removed wrong fillchar statement

This commit is contained in:
peter 2002-11-27 20:07:03 +00:00
parent 1b116848d8
commit 5e61e1cc80

View File

@ -268,7 +268,7 @@ end;
procedure TTopicBlock.Read(var Buf; Count: longint);
begin
FillChar(Buf,Sizeof(Buf),Count);
{FillChar(Buf,Sizeof(Buf),Count);}
if Count>(DataSize-CurOfs) then
begin
Count:=Max(0,DataSize-CurOfs);
@ -1677,7 +1677,10 @@ end;
END.
{
$Log$
Revision 1.3 2002-09-07 15:40:50 peter
Revision 1.4 2002-11-27 20:07:03 peter
* removed wrong fillchar statement
Revision 1.3 2002/09/07 15:40:50 peter
* old logs removed and tabs fixed
}