TClientDataSet

Комментарии

• awex

  November 2004 отредактировано 06:00

  Можно, как добавлять класс и все его свойства и методы описано в юзвере мануале.
• alexgold Москва

  November 2004 отредактировано 06:00

  awex написал:

  Можно, как добавлять класс и все его свойства и методы описано в юзвере мануале.

  Правильно ли я понял, что нужно сделать модуль по образу и подобию например fs_ibdertti.pas? А готового такого для ClientDataSet нет ни у кого?
• lvi

  November 2004 отредактировано 06:00

  unit Un_FsClientDataSetRtti;
  
  interface
  
  uses
  DB, DBClient, MConnect,
  fs_iinterpreter, fs_itools;
  
  implementation
  
  type
  TFunctions = class(TObject)
  private
  function CallMethod(Instance: TObject; ClassType: TClass;
  const MethodName: String; var Params: Variant): Variant;
  public
  constructor Create;
  destructor Destroy; override;
  end;
  
  var
  Functions: TFunctions;
  
  { TFunctions }
  
  constructor TFunctions.Create;
  begin
  with fsGlobalUnit do
  begin
  AddedBy := Self;
  AddClass(TDataSet,'TComponent');
  AddClass(TCustomClientDataSet,'TDataSet');
  with AddClass(TClientDataSet,'TCustomClientDataSet') do
  begin
  AddMethod('procedure AppendData(const Data: OleVariant; HitEOF: Boolean)',CallMethod);
  AddMethod('procedure SaveToFile(const FileName: string)',CallMethod);
  AddMethod('procedure LoadFromFile(const FileName: string)',CallMethod);
  AddMethod('procedure CreateDataSet',CallMethod);
  end;
  AddedBy := nil;
  end;
  end;
  
  destructor TFunctions.Destroy;
  begin
  if fsGlobalUnit <> nil then
  fsGlobalUnit.RemoveItems(Self);
  inherited;
  end;
  
  function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
  const MethodName: String; var Params: Variant): Variant;
  begin
  if ClassType=TClientDataSet then
  begin
  if MethodName='APPENDDATA' then
  TClientDataSet(Instance).AppendData(Params[0],Boolean(Params[1]))
  else if MethodName='SAVETOFILE' then
  TClientDataSet(Instance).SaveToFile(Params[0])
  else if MethodName='LOADFROMFILE' then
  TClientDataSet(Instance).LoadFromFile(Params[0])
  else if MethodName='CREATEDATASET' then
  TClientDataSet(Instance).CreateDataSet
  end
  end;
  
  initialization
  Functions := TFunctions.Create;
  
  finalization
  Functions.Free;
  
  end.
  
• awex

  November 2004 отредактировано 06:00

  >>>AddClass(TDataSet,'TComponent');
  Это излишне, TDataSet уже проимортили в модуле fs_idbrtti со всеми его свойствами и методами...
• alexgold Москва

  November 2004 отредактировано 06:00

  lvi написал:

  unit Un_FsClientDataSetRtti;

  Спасибо, помогло с небольшими доработками.