Hafıza boşaltma

[m_ekici]

Merhaba

aşağıdaki kodda VeriObj yi free ye gerek var mı? FaturalarAry  ı free ettiğimde VeriObj de siliniyor mu?

var
 FaturalarAry : TJSONArray;
 VeriObj, FatVeriObj : TJSONObject;

  begin
    try 
     FaturalarAry := TJSONObject.ParseJSONValue(Request.Content) as TJSONArray;
     if Assigned(FaturalarAry) then
        begin
         for FatI := 0 to FaturalarAry.Count - 1 do
           begin
            Fat_Durum := '';
            VeriObj := TJSONObject(FaturalarAry.Items[FatI]); 

        end;

    finally
      if Assigned(FaturalarAry) then FaturalarAry.Free;             
    end;

[RAD Coder]

ReportMemoryLeaksOnShutdown := True; ile kontrol ettiğimde Memory Leak oluşmadı.

[RAD Coder]

Yalnızca şuna dikkat etmeniz gerekiyor; elde ettiğiniz verinin root'u JSONArray değilse, ilk satırdaki FaturalarAry ataması hatalı olacak ve sonraki satırlar işletilmeyecektir.

[m_ekici]

Tmm, tşk.