GpStructuredStorage file   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sqli.vtd> sqliForm.vtdsqliFormName.vtd. sqliStep.vtdsqliStepFile.vtd 8sqliStepStr.vtd 6sqliStepStrEvent.vtd sqliVar.vtd  sqliVer.vtd sqliReports.vtdacKeyacNamed acIsDebugacType acVarInINI acAutoStart acAutoClose acEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeIns acNoteacCompiledScriptEXERC03.Exercise #3 - Use PANTHEON class TarSearchFormFAFFFTRT0 7jBVB 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 acSQLExport2acSQLExpacNoteEXERC03GPFAENFDjB windows-1250 AresProjectFProgram AresProject; uses sysutils, classes, forms, dialogs, dlcommon, controls; var fr: TArSearchForm; //declaration of form begin fr := TArSearchForm.Create(nil); //create form try fr.sql.Clear; //add SQL. :filter will be replaced with search item automaticaly fr.sql.add('SELECT ACREPORT ,ACFORMNAME ,ACNAME FROM tPA_Reports '); fr.sql.add(' where (acreport like :filter)'); fr.sql.add(' or (acformname like :filter)'); fr.sql.add(' or (acname like :filter)'); //key value - can be returned fr.KeyName := 'acReport'; //add columns to the list... fr.AddColumn('ACREPORT', 50, 'Report'); fr.AddColumn('ACFORMNAME', 100, 'Form Name'); fr.addColumn('ACNAME', 200, 'Name'); //refresh data fr.refresh; if fr.showmodal = MrOk then begin showmessage('selected report: '+fr.FieldByName(fr.KeyName).asString); end; finally fr.free; 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