GpStructuredStorage file    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sqli.vtd sqliForm.vtdsqliFormName.vtd. sqliStep.vtd2sqliStepFile.vtd 8sqliStepStr.vtd 6sqliStepStrEvent.vtd sqliVar.vtd sqliVer.vtdsqliReports.vtdacKeyacNamed acIsDebugacType acVarInINI acAutoStart acAutoClose acEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeIns acNoteacCompiledScriptEXERC06 Excercise 06FAFFFTRT0lB{zlB 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 acSQLExport2acSQLExpacNoteEXERC06GPFAENFlB windows-1250 AresProjectFProgram AresProject; uses sysutils, classes, forms, dialogs, FForm1; begin Form1 := TForm1.create(ares); ares.run; end. EXERC06GFFAENFPOlB windows-1250FForm1Fobject Form1: TForm Tag = 99 Left = 208 Top = 243 Caption = 'Form1' ClientHeight = 206 ClientWidth = 312 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object dlcxButton1: TdlcxButton Left = 123 Top = 75 Width = 75 Height = 25 Cancel = False Caption = 'dlcxButton1' ComponentSize = csSmall Templatable = False Default = False ModalResult = 0 TabOrder = 0 ImmediatePopUp = False end object edit_box: TdlcxLabeledTextEdit Left = 127 Top = 41 AutoSize = False Style.BorderStyle = ebsFlat Style.Color = 15065304 Style.LookAndFeel.Kind = lfFlat Style.LookAndFeel.NativeStyle = False Style.Shadow = False StyleDisabled.LookAndFeel.Kind = lfFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.Color = 14347503 StyleFocused.LookAndFeel.Kind = lfFlat StyleFocused.LookAndFeel.NativeStyle = False StyleHot.LookAndFeel.Kind = lfFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 1 LabelPosition = lpoLeft LabelSpacing = 3 LabelVisible = True EditLabel.Left = 22 EditLabel.Top = 44 EditLabel.Width = 42 EditLabel.Height = 13 EditLabel.Caption = 'edit_box' EditLabel.FocusControl = edit_box EditLabel.Transparent = True ComponentSize = csSmall Templatable = False Caption = 'edit_box' ReadOnly = False Height = 19 Width = 121 end object _evsaver: TEventCom events = 'dlcxButton1.OnClick=dlcxButton1Click'#13#10 end end Cunit FForm1; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlcomponents, Dialogs; type TForm1 = class(TarForm) dlcxButton1: TdlcxButton; edit_box: TdlcxLabeledTextEdit; 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); dlcxButton1 := FindComponent('dlcxButton1'); edit_box := FindComponent('edit_box'); dlcxButton1.OnClick := dlcxButton1Click; end; procedure TForm1.dlcxButton1Click(Sender: TObject); begin ares.variables.asString['MyVariable'] := edit_box.text; ares.executeStep(2); end; end. EXERC06GMFAENF[lB windows-12502F)~2~ Value inside edit box: #MyVariable# 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