Browse Source

PegFilter: EndPeg = BeginPeg when EndPeg is non-existent

MaiXinRong 8 years ago
parent
commit
9e4eee061a
1 changed files with 4 additions and 1 deletions
  1. 4 1
      Units/mPegFilter.pas

+ 4 - 1
Units/mPegFilter.pas

@@ -329,7 +329,10 @@ end;
 
 function TPegStrFilter.GetEndPeg: string;
 begin
-  Result := MergePeg(FEndPegList);
+  if FEndPegList.Count > 0 then
+    Result := MergePeg(FEndPegList)
+  else
+    Result := MergePeg(FBeginPegList);
 end;
 
 function TPegStrFilter.GetSubPeg(AIndex: Integer): string;