WeiWu DingXi Zjjl Gather

DataModules/ReportMemoryDm/rmWeiWuZjjlGatherDm.dfm

@@ -175,6 +175,7 @@ object rmWeiWuZjjlGatherData: TrmWeiWuZjjlGatherData
       item
         Name = 'DanWeiName'
         DataType = ftWideString
+        Size = 255
       end>
     IndexDefs = <>
     Params = <>
@@ -218,7 +219,7 @@ object rmWeiWuZjjlGatherData: TrmWeiWuZjjlGatherData
       6F74616C507269636508000400000000000D42696C6C735175616E7469747908
       000400000000000F42696C6C73546F74616C5072696365080004000000000009
       46656E42754E616D6501004A00000001000557494454480200020064000A4461
-      6E5765694E616D6501004A00000001000557494454480200020001000000}
+      6E5765694E616D6502004A000000010005574944544802000200FE010000}
     object cdsZjjlCode: TWideStringField
       FieldName = 'Code'
       Size = 50
@@ -351,7 +352,7 @@ object rmWeiWuZjjlGatherData: TrmWeiWuZjjlGatherData
     end
     object cdsZjjlDanWeiName: TWideStringField
       FieldName = 'DanWeiName'
-      Size = 0
+      Size = 255
     end
   end
 end

DataModules/ReportMemoryDm/rmWeiWuZjjlGatherDm.pas

@@ -124,7 +124,7 @@ begin
     sgs.Delimiter := AFilter;
     sgs.DelimitedText := AStr;
 
-    while sgs.Count > 2 do
+    while sgs.Count > 3 do
       sgs.Delete(sgs.Count - 1);
     Result := sgs.DelimitedText;
   finally