Покрытие набора данных TMyQuery в TClientDataSet в Delphi - PullRequest
Новая
       25

Покрытие набора данных TMyQuery в TClientDataSet в Delphi

2 голосов
/ 01 января 2009

Я использую компоненты Mydac от devart (corelab) для доступа к MySql из Delphi (2006) Очень часто мне нужно работать с данными в TClientDataSet Каков наилучший способ преобразовать набор данных TMyQuery в TClientDataSet В настоящее время я использую 

var
    MyQuery : TMyQuery;
    Dsp     : TDataSetProvider;
    Cds     : TClientDataSet;
begin
    MyQuery := nil;
    Dsp     := nil;
    Cds     := nil;
    try
        MyQuery            := TMyQuery.Create(nil);
        Dsp                := TDataSetProvider.Create(nil);
        Cds                := TClientDataSet.Create(nil);
        MyQuery.Connection := TheConnection;
        MyQuery.SQL.Text   := CmdStr;
        Dsp.DataSet := MyQuery;
        Cds.SetProvider(Dsp);
        Cds.Open;
        ////////////////////////////////////////////////////////////////////////
        ///                  MAKE USES OF THE CDS                             //
        ////////////////////////////////////////////////////////////////////////
    finally
        FreeAndNil(Cds);
        FreeAndNil(Dsp);
        FreeAndNil(MyQuery);
    end;
end;

Есть ли лучший способ сделать это?

1 Ответ

7 голосов
/ 01 января 2009

Если вам действительно нужно это очень часто, сделайте это функцией, например: 

function CreateAndOpenClientDataset(AOwner: TComponent;
  AConnection: TConnection; ACommand: string): TClientDataSet;
var
  MyQuery: TMyQuery;
  Dsp: TDataSetProvider;
begin
  Result := TClientDataSet.Create(AOwner);
  try
    MyQuery := TMyQuery.Create(Result);
    MyQuery.Connection := AConnection;
    MyQuery.SQL.Text := ACommand;

    Dsp := TDataSetProvider.Create(Result);
    Dsp.DataSet := MyQuery;

    Result.SetProvider(Dsp);
    Result.Open;
  except
    Result.Free;
    raise;
  end;
end;

Эта функция, которую вы можете использовать во всех местах вместо TClientDataSet.Create (), и, если исключение не возникнет, вам будет предоставлен открытый TClientDataSet, который владеет и таким образом также освобождает два вспомогательных объекта.

(Примечание: я использую только компоненты DevArt для MS Sql Server, поэтому не могу тестировать. Код может содержать ошибки, но общая идея работает.)

...