Tf1book + Fastscript - кто-нибудь пробывал ?

Комментарии

• Stalker4 123

  March 2009 отредактировано 19:00

  В принципе это все описано в документации и можно посмотреть примеры такой реализации в FR.
  
  Вот тебе мой пример:
  
  У класса TMemoryRecordEh есть свойство DataValues

  property DataValues[const FieldNames: string; DataValueVersion: TDataValueVersionEh]: Variant;
  

  Оно тоже индексное, как и у тебя.
  
  Вот тебе пример, как оно подключается в FS и FR:
  

  constructor TFunctions.Create(AScript: TfsScript);
  begin
  
   inherited Create(AScript);
  
   with AScript do begin
  
      AddEnum('TDataValueVersionEh','dvvOldValueEh, dvvCurValueEh, dvvEditValueEh, dvvValueEh, dvvOldestValue, dvvRefreshValue');
  
      with AddClass(TMemoryRecordEh, 'TPersistent') do
        AddIndexProperty('DataValues','String, TDataValueVersionEh','Variant', CallMethod);
  
   end;
  
  end;
  
  function TFunctions.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; Caller: TfsMethodHelper): Variant;
  begin
  
   Result := 0;
  
   if ClassType = TMemoryRecordEh then begin
                        
     if MethodName = 'DATAVALUES.GET' then
       Result := TMemoryRecordEh(Instance).DataValues[Caller.Params[0], Caller.Params[1]]
     else
     if MethodName = 'DATAVALUES.SET' then
       TMemoryRecordEh(Instance).DataValues[Caller.Params[0], Caller.Params[1]] := Caller.Params[2]
  
   end;
  
  end;
  
• Dimonis

  March 2009 отредактировано 19:00

  Stalker4, спасибо за подсказку - сработало. Если интересно - могу написать как, но главное - идея стала понятна.
• Stalker4 123

  March 2009 отредактировано 19:00

  Dimonis написал: »

  Stalker4, спасибо за подсказку - сработало. Если интересно - могу написать как, но главное - идея стала понятна.

  Напиши, посмотрим ...
• Dimonis

  April 2009 отредактировано 19:00

  Stalker4 написал: »

  Напиши, посмотрим ...

  
  
  AddIndexProperty('EntryRC','Integer,Integer','Variant',CallMethod);
  // это - добавление свойства
  
  If MethodName='ENTRYRC.SET' Then Begin
  TF1Book6(Instance).EntryRC[Integer(Caller.Params[0]),Integer(Caller.Params[1])]:=Caller.Params[2];
  End;
  If MethodName='ENTRYRC.GET' Then Begin
  Result:=TF1Book6(Instance).EntryRC[Integer(Caller.Params[0]),Integer(Caller.Params[1])];
  End;
  // это - как обрабатывается в CallMethod