Форум режимщиков

property Z[i: Integer]: OleVariant read Get_Z write Set_Z;

implementationuses ASTRALib_TLB, Registry, ComObj;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);const  _RegDirKey = '\SOFTWARE\Classes\TypeLib\{84B05080-ABC9-11D3-B740-00500454CF3F}\1.0\HELPDIR';var  RastrDir: string; // Каталог растра  RastrObject: IRastr; // Объект Rastr  Tables: ITables; // Объект таблицы  ShablonName_rg2: string;  Reg: TRegistry;  v: OleVariant;  AppPath: string;begin  RastrObject := CreateoleObject('Astra.Rastr') as IRastr;  Tables := RastrObject.Tables;  AppPath := ExtractFilePath(ParamStr(0)); // Каталог программы  Reg := TRegistry.Create;  try    Reg.RootKey := HKEY_LOCAL_MACHINE;    if Reg.OpenKey(_RegDirKey, False) then   begin      RastrDir:=Reg.ReadString(''); // Директория с Rastr      Reg.CloseKey;    end;  finally    Reg.Free;  end;  ShablonName_rg2 := RastrDir + 'SHABLON\режим.rg2';  RastrObject.NewFile(ShablonName_rg2);  Tables.Item('node').AddRow;  v := 100;  Tables.Item('node').Cols.Item('pg').Z(0) := v;  RastrObject.Save(AppPath + '1.rg2', ShablonName_rg2);  v := Tables.Item('node').Cols.Item('pg').Z(0);  ShowMessage(v);end;end.

Private Sub CommandButton1_Click()Dim RastrObject As RastrDim v As VariantSet RastrObject = CreateObject("Astra.Rastr")RastrObject.NewFile ("C:\Program Files\RastrWin\SHABLON\режим.rg2")RastrObject.Tables.Item("node").AddRowRastrObject.Tables.Item("node").Cols.Item("pg").Z(0) = 300v = RastrObject.Tables.Item("node").Cols.Item("pg").Z(0)ActiveCell.Value = vEnd Sub