Fixed a potential memory leak in AddProperty

paolo-rossi · May 4, 2024 · 02c7fbe · 02c7fbe
1 parent 731c397
commit 02c7fbe
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/Source/OpenAPI.Model.Schema.pas b/Source/OpenAPI.Model.Schema.pas
@@ -407,9 +407,11 @@ function TOpenAPISchema.AddEnum(const AValue: TValue): TOpenAPIAny;
 
 function TOpenAPISchema.AddProperty(const AKeyName: string): TOpenAPISchema;
 begin
-  Result := TOpenAPISchema.Create;
-
-  FProperties.Add(AKeyName, Result);
+  if not FProperties.TryGetValue(AKeyName, Result) then
+  begin
+    Result := TOpenAPISchema.Create;
+    FProperties.Add(AKeyName, Result);
+  end;
 end;
 
 constructor TOpenAPISchema.Create;