Browse Source

rtl: pass exact size to delete instead of full string length

git-svn-id: trunk@22418 -
paul 13 years ago
parent
commit
a2548fc9f9
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/unix/sysunix.inc

+ 1 - 1
rtl/unix/sysunix.inc

@@ -36,7 +36,7 @@ begin
     p:=Pos('.',Result);
     if p>0 then Delete(Result,1,p);
     p:=Pos('@',Result);
-    if p>0 then Delete(Result,p,length(Result));
+    if p>0 then Delete(Result,p,length(Result)-p+1);
   end;
 end;