Add(MainForm,1641136,35,49)
{
 Left=20
 Top=105
 Width=528
 Height=382
 Caption="SyntaxPad"
 Position=1
 Point(onResize)
}
Add(HilightMemo,15371114,98,49)
{
 Width=520
 Height=355
 Align=5
 Color=12632256
 Font=[Courier New,9,1,0,204]
 Ctl3D=1
 Strings=#16:unit hiStr_Enum;|0:|9:interface|0:|21:uses Kol,Share,Debug;|0:|4:type|29:  THIStr_Enum = class(TDebug)|10:   private|15:    iInd:Tdata;|9:   public|27:    _prop_Delimiter:string;|27:    _data_String:THI_Event;|28:    _event_onEnum:THI_Event;|27:    _event_onEnd:THI_Event;|0:|56:    procedure _work_doEnum(var _Data:TData; Index:word);|54:    procedure _var_Index(var _Data:TData; Index:word);|6:  end;|0:|14:implementation|0:|0:|35:procedure THIStr_Enum._work_doEnum;|13:var s:string;|16:    Ind:integer;|5:begin|37:   s:=ReadString(_Data,_data_String);|24:   if s = ' then  exit;|54:   if _prop_Delimiter = ' then  // выдаем по символам|34:      for Ind:=1 to Length(s) do  |14:         begin|33:           dtInteger(iInd,Ind-1);|45:           _hi_onEvent(_event_onEnum,s[Ind]);|14:         end  |40:   else                         // иначе|54:    begin                       // делим по делимитеру|34:      s := s + _prop_Delimiter[1];|15:      ind := 0;|24:      While s <> ' do  |15:          begin|32:            dtInteger(iInd,Ind);|68:            _hi_onEvent(_event_onEnum,Gettok(s,_prop_Delimiter[1]));|21:            inc(ind);|14:          end;|8:    end;|42:     _hi_CreateEvent(_Data,@_event_onEnd);|4:end;|0:|63:procedure THIStr_Enum._var_Index(var _Data:TData; Index:word); |6:begin |21:  dtData(_Data,iInd);|4:end;|0:|4:end.|
 HilightStrings=#9:And=Black|11:array=Black|8:as=Black|10:asm =Black|15:automated=Black|11:begin=Black|10:case=Black|13:{class}=Black|13:const=6632907|17:constructor=Black|16:destructor=Black|16:directives=Black|13:dispose=Black|9:div=Black|8:do=Black|12:downto=Black|10:else=Black|13:end;=12334431|13:end.=11038416|12:except=Black|13:exports=Black|10:file=Black|18:finalization=Black|13:finally=Black|9:for=Black|14:function=Black|10:goto=Black|8:if=Black|20:implementation=27824|15:inherited=Black|20:initialization=Black|15:interface=Black|8:is=Black|11:label=Black|13:library=Black|10:line=Black|9:mod=Black|9:nil=Black|9:not=Black|12:object=Black|10:{of}=Black|10:{on}=Black|11:{or} =Black|11:{out}=Black|12:packed=Black|13:private=Black|15:procedure=Black|13:program=Black|14:property=Black|15:protected=Black|12:public=Black|15:published=Black|11:raise=Black|12:record=Black|12:repeat=Black|14:resource=Black|11:{set}=Black|9:shl=Black|9:shr=Black|12:string=Black|12:string=Black|10:then=Black|15:threadvar=Black|10:{to}=Black|9:try=Black|12:type=6348983|13:unit=11220377|11:until=Black|10:uses=Black|9:var=Black|13:virtual=Black|11:while=Black|10:with=Black|9:xor=Black|9://*=Green|9:/*/=Green|11:(*)=8781824|
 HilightFont=[Lucida Console,8,1,0,0]
 AutoComplete=1
 MinWordLen=0
 RightMargin=1
 Point(doHilightFont)
}