Hata ?

[m_ekici]

Arakadaşlar merhaba
bu kodda nasıl bir hata var? Bazan bu paragrafta hata veriyor. (PAT_.state mutlaka dsInsert veya dsEdit geliyor)

Kod: Tümünü seç

var 
IcSakla: TMemoryStream;
begin
  IcSakla := TMemoryStream.Create;
  Editor.Lines.SaveToStream(IcSakla);
  TBlobField(PAT_.FieldByName('PTL')).LoadFromStream(IcSakla);
  Icsakla.Free;

* .free ile hafızadan silinmiyor olabilir mi?

[naile]

Kod: Tümünü seç

var
IcSakla: TMemoryStream;
begin
 try
  IcSakla := TMemoryStream.Create;
  Editor.Lines.SaveToStream(IcSakla);
  TBlobField(PAT_.FieldByName('PTL')).LoadFromStream(IcSakla);
 finally
  Icsakla.Free;
 end;

create-free olaylarında try-finally kullanmanın faydası var. Aradaki işlemlerde hata da görse finally bloğuna girer ve free yapar mutlaka