Tpersonel ismindeki sınıfı create edip cıktıyı json formatında alıyorum.
fakat cıktıyı aldıktn sonra oluşturulan sınıfı yok etmeme rağmen görev yöneticisinden takip etmeme rağmen kullanılan ram miktarında düşme olmuyor. sürekli yükselme eğiliminde
Örnek Kod
Kod: Tümünü seç
var
aRttiCntx: TRttiContext;
afield: TRttiField;
ajsonObject: TJSONObject;
begin
ajsonObject := TJSONObject.Create;
aRttiCntx := TRttiContext.Create;
try
for afield in aRttiCntx.GetType(Self.ClassType).GetFields do
begin
if afield.Visibility in [mvPublic] then
ajsonObject.AddPair(TJsonPair.Create(afield.Name,
afield.GetValue(Self).ToString));
end;
aRttiCntx.Free;
Result := ajsonObject;
finally
// ajsonObject.Free;
// aRttiCntx.Free;
end;
bunu işim bittikten sonra ramdan nasıl atabilirim.
teşekkürler.