GpStructuredStorage file    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sqli.vtd% sqliForm.vtdsqliFormName.vtd. sqliStep.vtdsqliStepFile.vtd8sqliStepStr.vtd6sqliStepStrEvent.vtd sqliVar.vtd sqliVer.vtdsqliReports.vtdacKeyacNamed acIsDebugacType acVarInINI acAutoStart acAutoClose acEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeIns acNoteacCompiledScriptDEMO014DPA pos SQLexp tabelaFAFFFTRT0qBM΁B acKey acFormName2 acDocType acObjectName2acType acKeyShortCut2acTabSheetName2 anUserChg anUserIns adTimeChg adTimeIns acFormType acFormName2acName2acKeyanNoacViewacSetOfacDescracReportacFileCreateTableanFileDelimiter acFileNameacFileTableName acFileDest acFileType acFileTypeXML acShowIfEmptyacTitleButtons anTitleLinesanBeginFromRecord anUserChg anUserIns adTimeChg adTimeIns acCharSet2 acStyleSheet acUnitName2 acNewThreadacDFMacPAS acSQLExport2acSQLExpacNoteDEMO014GPFAENFzBH1B windows-1250 AresProjectFProgram AresProject; uses sysutils, classes, forms, dialogs, FForm1; begin Form1 := TForm1.create(ares); Form1.FormType := ftChild; Form1.show; end. DEMO014GFFAENF-BH1B windows-1250FForm1FC object Form1: TForm Tag = 99 Left = 208 Top = 243 Caption = 'Search for SQLexp inside reports' ClientHeight = 231 ClientWidth = 481 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesigned PixelsPerInch = 96 TextHeight = 13 object cxGrid1: TcxGrid Left = 0 Top = 35 Width = 481 Height = 196 Align = alClient TabOrder = 0 ExplicitTop = 41 ExplicitWidth = 851 ExplicitHeight = 415 object cxGrid1DBTableView1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> object cxGrid1DBTableView1acReport: TcxGridDBColumn DataBinding.FieldName = 'acReport' Visible = False GroupIndex = 0 Width = 91 end object cxGrid1DBTableView1acSQLexp: TcxGridDBColumn DataBinding.FieldName = 'acSQLexp' end end object cxGrid1Level1: TcxGridLevel GridView = cxGrid1DBTableView1 end end object dlcxPanel1: TdlcxPanel Left = 0 Top = 0 Width = 481 Height = 35 Align = alTop Alignment = taLeftJustify BorderStyle = bsNone BorderSize = 1 BorderColor3D = clWhite Border3D = False BorderColor = clGray Color = 15065304 ColorTo = 15065304 ComponentSize = csSmall Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Options = [] ParentColor = False PanelType = ptNone TabOrder = 3 Templatable = False Transparent = False HeaderVisible = False HeaderColor = clGray HeaderColorTo = 13750737 HeaderHeight = 0 HeaderFont.Charset = DEFAULT_CHARSET HeaderFont.Color = clWindowText HeaderFont.Height = -11 HeaderFont.Name = 'Tahoma' HeaderFont.Style = [] HeaderAlignment = taLeftJustify HeaderPanelType = ptNone HotColor = clBlack HotColorTo = clBlack CheckedColor = clBlack CheckedColorTo = clBlack Checked = False object dlcxButton1: TdlcxButton Left = 4 Top = 5 Width = 75 Height = 25 Cancel = False Caption = 'Refresh' ComponentSize = csSmall Templatable = False Default = False ModalResult = 0 TabOrder = 0 ImmediatePopUp = False end end object _evsaver: TEventCom events = 'OnClose=FormClose'#13#10'OnShow=FormShow'#13#10'dlcxButton1.OnClick=dlcxButt' + 'on1Click'#13#10 end object DataSource1: TDataSource DataSet = dvt Left = 508 Top = 94 end object dvt: TdlVirtualTable Active = True FieldDefs = < item Name = 'acReport' DataType = ftString Size = 3 end item Name = 'acSQLexp' DataType = ftString Size = 1000 end> Left = 554 Top = 99 Data = { 03000200080061635265706F727401000300000000000800616353514C657870 0100E80300000000000000000000} end end - unit FForm1; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlcomponents, Dialogs, db, dlDatabase, cxGrid, StrUtils; type TForm1 = class(TarForm) dlcxButton1: TdlcxButton; DataSource1: TDataSource; cxGrid1: TcxGrid; cxGrid1DBTableView1: TcxGridDBTableView; cxGrid1Level1: TcxGridLevel; dvt: TdlVirtualTable; cxGrid1DBTableView1acReport: TcxGridDBColumn; cxGrid1DBTableView1acSQLexp: TcxGridDBColumn; dlcxPanel1: TdlcxPanel; procedure dlcxButton1Click(Sender: TObject); private public constructor Create(AOwner: TComponent); override; end; var Form1: TForm1; implementation constructor TForm1.Create(AOwner: TComponent); begin inherited Create(AOwner); ares.AssignObjectsToForm('FForm1',Self); DataSource1 := FindComponent('DataSource1'); cxGrid1 := FindComponent('cxGrid1'); cxGrid1DBTableView1 := FindComponent('cxGrid1DBTableView1'); cxGrid1Level1 := FindComponent('cxGrid1Level1'); dlcxButton1 := FindComponent('dlcxButton1'); dvt := FindComponent('dvt'); cxGrid1DBTableView1acReport := FindComponent('cxGrid1DBTableView1acReport'); cxGrid1DBTableView1acSQLexp := FindComponent('cxGrid1DBTableView1acSQLexp'); dlcxPanel1 := FindComponent('dlcxPanel1'); dlcxButton1.OnClick := dlcxButton1Click; end; procedure TForm1.dlcxButton1Click(Sender: TObject); var pozs,pozk,st,ind:integer; ds: TdlDataSet; report:TField; reportStr:String; funkcija:string; konec:boolean; begin ds := TdlDataset.create(nil); dvt.Open; dvt.Clear; dvt.DisableControls; try if (panResources['lRazvojAplikacije'] = true ) then ds.sql.text := 'select acreport,acreportdata from tpa_reports ' else ds.sql.text := 'select acreport,acreportdata from tpa_reports where acreport > ''A00'''; ds.open; ds.first; st := ds.RecordCount; while (not ds.eof) do begin reportstr := ds.fieldbyname('acreportdata').asString; ind := 1; konec := true; while (konec) do begin ind := PosEx('SQLexp(''',reportstr,ind); if (ind = 0) then begin konec := false; end else begin pozs := ind+1; pozk := PosEx(')]',reportstr,pozs)-1; st := pozk-pozs; funkcija := Copy(reportstr,pozs+7,st-7); dvt.Append; dvt.FieldByName('acReport').asString := ds.fieldbyname('acreport').asstring; dvt.FieldByName('acSQLexp').asString := funkcija; dvt.Post; ind := pozk; end; end; ds.next; end; ds.close; finally ds.free; end; dvt.IndexFieldNames := 'acReport'; dvt.EnableControls; dvt.First; end; end. acKeyanNoanSeqNoacHField2acHType anHLengthanHDecacPField2acPTypeanPLegthanPDec acPFormat acPSeparator anUserChg anUserIns adTimeChg adTimeIns acKeyanNoanSeqNo acFieldName2 anFieldSize acFieldTitleacFieldReadOnly acEditType acFieldConst anUserChg anUserIns adTimeIns adTimeChg acFieldFormatacFieldDefault acKeyanNo acDataEventacDataReturnValue acKeyAndNo anUserChg anUserIns adTimeChg adTimeIns acKey acWhereKeyanNo acFieldName acParamVar acFieldType acFieldREQacFieldCaption2 acDefaultExpacDefaultValue acLookUpSQL acOperator acVarHint2 acAddApostrof anUserChg anUserIns adTimeChg adTimeIns acPrtCrit ACKEY ANVERSIONANNOACSQLEXPACNOTE ADTIMECHG ANUSERCHG ADTIMEINS ANUSERINSACREPORTACLANGIDACLOCALIZATION2 ACFORMNAMEdACNAMEdACDEFAULTPRINTER ACPREVIEWANMAXPRSTLEVELACSUBSTITUTESIGNACPRINTIFEMPTY ACPRINTTOTEXT ANNOOFCOPY ACORDERBY ACREGUSERCODEACACTIVE ACKEYSHORTCUT2 ANUSERINS ADTIMEINS ANUSERCHG ADTIMECHG ACTEXT1ACTEXT2ACTEXT3ACNOTE ACREPORTDATA