* check for nil in concat_multi

git-svn-id: trunk@2658 -

rtl/inc/astrings.inc

@@ -185,9 +185,12 @@ begin
   for i:=low(sarr) to high(sarr) do
     begin
       p:=pointer(sarr[i]);
-      Size:=length(ansistring(p));
-      Move(pchar(p)^,pc^,Size+1);
-      inc(pc,size);
+      if assigned(p) then
+        begin
+          Size:=length(ansistring(p));
+          Move(pchar(p)^,pc^,Size+1);
+          inc(pc,size);
+        end;
     end;
 end;
 

rtl/inc/wstrings.inc

@@ -425,9 +425,12 @@ begin
   for i:=low(sarr) to high(sarr) do
     begin
       p:=pointer(sarr[i]);
-      Size:=length(widestring(p));
-      Move(pwidechar(p)^,pc^,(Size+1)*sizeof(WideChar));
-      inc(pc,size);
+      if assigned(p) then
+        begin
+          Size:=length(widestring(p));
+          Move(pwidechar(p)^,pc^,(Size+1)*sizeof(WideChar));
+          inc(pc,size);
+        end;
     end;
 end;