Browse Source

* Patch from Paul Ishenin to fix tstrings.assign

git-svn-id: trunk@10770 -
michael 17 years ago
parent
commit
16db18bb73
1 changed files with 1 additions and 0 deletions
  1. 1 0
      rtl/objpas/classes/stringl.inc

+ 1 - 0
rtl/objpas/classes/stringl.inc

@@ -567,6 +567,7 @@ begin
       FQuoteChar:=S.FQuoteChar;
       FQuoteChar:=S.FQuoteChar;
       FDelimiter:=S.FDelimiter;
       FDelimiter:=S.FDelimiter;
       FNameValueSeparator:=S.FNameValueSeparator;
       FNameValueSeparator:=S.FNameValueSeparator;
+      FLBS:=S.FLBS;
       AddStrings(S);
       AddStrings(S);
     finally
     finally
       EndUpdate;
       EndUpdate;