瀏覽代碼

+ Fix for bug report 2097 in formatbuf

michael 23 年之前
父節點
當前提交
2612c7418b
共有 1 個文件被更改,包括 4 次插入5 次删除
  1. 4 5
      rtl/objpas/sysstr.inc

+ 4 - 5
rtl/objpas/sysstr.inc

@@ -947,11 +947,7 @@ begin
   if fmtlen > 0 then
     Move(fmt,F[1],fmtlen);
   S:=Format (F,Args);
-<<<<<<< sysstr.inc
   If Cardinal(Length(S))>Buflen then
-=======
-  If cardinal(Length(S))>Buflen then
->>>>>>> 1.1.2.9
     Result:=Length(S)
   else
     Result:=Buflen;
@@ -1342,7 +1338,10 @@ const
 
 {
   $Log$
-  Revision 1.16  2002-08-29 10:04:25  michael
+  Revision 1.17  2002-08-29 10:04:48  michael
+  + Fix for bug report 2097 in formatbuf
+
+  Revision 1.16  2002/08/29 10:04:25  michael
   + Fix for bug report 2097 in formatbuf
 
   Revision 1.15  2002/07/06 12:14:03  daniel