FDDataSet을 복사하여 Delphi의 함수에서 반환

Question

FDQuery에서 FDDataset을 반환해야하지만 결과 또는 다른 FDDataset에 데이터 집합을 복사 할 수 없습니다. 내가 오류가

function getFix(id: Integer): TFDDataSet; 
begin 
FDQuery.SQL.Clear; 
FDQuery.SQL.ADD('SELECT ....'); 
... 
FDQuery.SQL.Open; 
Result.CreateDataSet; 
Result.CopyDataSet(FDQuery.Fields.DataSet); 
end; 

: "액세스 위반 ...."다른 장치에서

procedure TForm1.Button1Click(Sender: TObject); 
var: Fix: TFDDataSet; 
begin 
Fix.CreateDataSet; 
Fix.CopyDataSet(getFix(1)); 
end; 

과 기능 : 이 내 주요 코드입니다.

다른 TFDDataSet에 FDQuery 결과를 복사하려면 어떻게해야합니까? 또는 TClientDataSet을 사용해야합니까? FireDac과 TClientDataSet가 같은가?

Answer 1

수정해야 할 몇 가지 오류가 코드에 있습니다.

먼저, TFDDataSet은 내가 알 수있는 한 문서에 표시되어 있지 않지만 추상 클래스입니다 (적어도 그 일부는 있음). 이것은 당신이 원하는대로 그것을 만들고 사용할 수 없다는 것을 의미합니다. FireDAC의 소스는 Delphi의 Professional SKU에 포함되어 있지 않으므로 확인을 위해 볼 수는 없습니다.

TFDMemTable을 올바르게 생성하고 사용하면 올바르게 작동합니다.

function getFix(id: Integer): TFDMemTable; 
begin 
FDQuery.SQL.Clear; 
FDQuery.SQL.ADD('SELECT ....'); 
... 
FDQuery.Open; 
Result := TFDMemTable.Create(nil); 
Result.CopyDataSet(FDQuery.Fields.DataSet); 
end; 

BTW, 당신은 아마 당신은 또한 책임이 있음을 알려 함수의 이름을 변경해야합니다 : 함수의 Result는 개체 인스턴스 때, 당신은 당신이 그것을 사용하기 전에 객체 인스턴스 첫 번째 Create에 있습니다 메모리 누수를 피하기 위해 데이터 세트를 사용하면 해당 데이터 세트를 해제합니다. 적절한 사용은 다음과 같다 :

MyMemTable := getFix(SomeID); 
try 
    // Do something with MyMemTable 
finally 
    MyMemTable.Free; 
end;