Explorar o código

PegFilter: EndPeg = BeginPeg when EndPeg is non-existent

MaiXinRong %!s(int64=8) %!d(string=hai) anos
pai
achega
9e4eee061a
Modificáronse 1 ficheiros con 4 adicións e 1 borrados
  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;