VPF::ClientDataSet - Форум программистов

php5

Дата 10.12.2008, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 272
Регистрация: 15.8.2007

Репутация: нет
Всего: нет

А как для ClientDataSet выполнить действие, аналогичные нажатию в DesignTime кнопки Assign Local Data, которая появляется при правом клике мышкой на компоненте ClientDataSet?
Мне надо копировать данные из ZQuery в ClientDataSet

Rrader

Дата 10.12.2008, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Можно посмотреть код этой формы. У меня в D2007 лежит здесь:

CodeGear\RAD Studio\5.0\source\Win32\Property Editors\CDSEdit.pas

В D7 здесь:
Borland\Delphi7\Source\Property Editors\CDSEdit.pas

--------------------

Let's do this quickly!
Rest in peace, Vit!

php5

Дата 10.12.2008, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 272
Регистрация: 15.8.2007

Репутация: нет
Всего: нет

Что то там ничего не понятно относительно поставленной задачи smile

pseud

Дата 11.12.2008, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(php5 @ 10.12.2008, 19:49

)

Что то там ничего не понятно относительно поставленной задачи

от чего же
например, вот нужный тебе кусок кода

Код


procedure TClientDataForm.OkBtnClick(Sender: TObject);
var
  DataSet: TDataSet;
  DSProv: TDataSetProvider;
begin
  try
    if DataSetList.ItemIndex >= 0 then
    begin
      Screen.Cursor := crHourGlass;
      try
        with DataSetList do
          DataSet := FDesigner.GetComponent(Items[ItemIndex]) as TDataSet;
        if (DataSet is TClientDataSet) then
          FDataSet.Data := TClientDataSet(DataSet).Data
        else
        begin
          DSProv := TDataSetProvider.Create(nil);
          try
            DSProv.DataSet := DataSet;
            FDataSet.Data := DSProv.Data
          finally
            DSProv.Free;
          end;
        end;
      finally
        Screen.Cursor := crDefault;
      end;
    end
    else
      FDataSet.Data := varNull;
  except
    ModalResult := mrNone;
    raise;
  end;
end;

а если разжевать, то вот:

Код


var
  DSProv: TDataSetProvider;
begin
  DSProv := TDataSetProvider.Create(nil);
  try
    DSProv.DataSet := ZQuery1;
    ClientDataSet1.Data := DSProv.Data;
  finally
    DSProv.Free;
  end;
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »