* Delphi compatibility fix (with string routines)

rtl/inc/astrings.inc

@@ -705,10 +705,7 @@ begin
   If Length(S)=0 then
    exit;
   if index<=0 then
-   begin
-     inc(Size,index-1);
-     index:=1;
-   end;
+   exit;
   LS:=PAnsiRec(Pointer(S)-FirstOff)^.Len;
   if (Index<=LS) and (Size>0) then
    begin
@@ -785,7 +782,10 @@ end;
 
 {
   $Log$
-  Revision 1.27  2002-09-07 21:10:47  carl
+  Revision 1.28  2002-09-14 11:20:50  carl
+    * Delphi compatibility fix (with string routines)
+
+  Revision 1.27  2002/09/07 21:10:47  carl
     * cardinal -> longword
     - remove some unused routines
 

rtl/inc/sstrings.inc

@@ -48,10 +48,7 @@ end;
 procedure delete(var s : shortstring;index : StrLenInt;count : StrLenInt);
 begin
   if index<=0 then
-   begin
-     inc(count,index-1);
-     index:=1;
-   end;
+     exit;
   if (Index<=Length(s)) and (Count>0) then
    begin
      if Count>length(s)-Index then
@@ -662,7 +659,10 @@ end;
 
 {
   $Log$
-  Revision 1.22  2002-09-07 21:19:00  carl
+  Revision 1.23  2002-09-14 11:20:50  carl
+    * Delphi compatibility fix (with string routines)
+
+  Revision 1.22  2002/09/07 21:19:00  carl
     * cardinal -> longword
 
   Revision 1.21  2002/09/07 15:07:46  peter

rtl/inc/wstrings.inc

@@ -697,10 +697,7 @@ begin
   If Length(S)=0 then
    exit;
   if index<=0 then
-   begin
-     inc(Size,index-1);
-     index:=1;
-   end;
+   exit;
   LS:=PWideRec(Pointer(S)-WideFirstOff)^.Len;
   if (Index<=LS) and (Size>0) then
    begin
@@ -853,7 +850,10 @@ end;
 
 {
   $Log$
-  Revision 1.20  2002-09-07 21:16:45  carl
+  Revision 1.21  2002-09-14 11:20:50  carl
+    * Delphi compatibility fix (with string routines)
+
+  Revision 1.20  2002/09/07 21:16:45  carl
     * cardinal -> longword
 
   Revision 1.19  2002/09/07 15:07:46  peter