Delphi Can

Merhabalar

Alttaki paylaştığım kodda hata alıyorum. Acaba nerde hata yapıyorum. 

function  TfrmSG_AnaModul.User_Profil( xxxx: string ): TFDMemTable;
begin
 try
  User_Query.Close;
  User_Query.SQL.Text := frmSQL_Script_Yukle.frmSQL_Scriptler.zzzz;
  User_Query.Params.ParamByName('yyyy').AsString := xxxx;
  User_Query.Open;

  if User_Query.IsEmpty then Exit;

   Result.Data := User_Query.Data;

  except on e : Exception do
    ShowMessage( e.Message );
end;

end;

Hocam hata nedir?

Büyük ihtimalle Access Violation hatası alıyordur. Çünkü Result'ı Create etmeyi unutmuş.

(23-12-2021, Saat: 08:28)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: [ -> ]Büyük ihtimalle Access Violation hatası alıyordur. Çünkü Result'ı Create etmeyi unutmuş.

Hocam cevabınız için çok teşekkür ederim. Dediğinizi yaptım hata ortadan kalktı fakat function boş dönüyor. Bunun sebebi ne olabilir.

---

(23-12-2021, Saat: 02:46)mcuyan Adlı Kullanıcıdan Alıntı: [ -> ]Hocam hata nedir?

Hatayı eklemeyi unutmuşum kusurabakmayın.

---

Hocam create ettim result kontrol ettim boş değil veri aktarılmış fakat altta paylaştığım gibi bir hata veriyor.