Add(MainForm,11106523,245,70)
{
 Width=265
 Height=252
 Caption="DELPHI 4"
 link(onCreate,10386734:doEvent1,[])
}
Add(StrList,13149159,378,56)
{
 FileName="..License.txt"
}
Add(Button,13319121,161,196)
{
 Left=40
 Top=175
 Caption="TEST"
 link(onClick,3481352:doEvent1,[])
}
Add(Str_Enum,2258172,490,196)
{
 Delimiter=" "
 link(String,3426764:Var2,[])
}
Add(TimeCounter,6856819,308,196)
{
 Precision=1
 link(onStart,11548312:doFor,[])
 link(onStop,1349864:doText,[(361,209)(361,244)])
}
Add(TimeCounter,9371103,308,287)
{
 Precision=1
 link(onStart,11792497:doFor,[])
 link(onStop,12807532:doText,[(358,300)(358,335)])
}
Add(InlineCode,2448795,455,287)
{
 WorkPoints=#6:doEnum|
 EventPoints=#6:onEnum|9:onEndEnum|
 DataPoints=#3:Str|
 Code=#15:unit HiAsmUnit;|13:// Author Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|7:   str,|10:   onEnum,|25:   onEndEnum : THI_Event;|51:     PROCEDURE doEnum(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doEnum;|13:var s:string;|17:    i, k:integer;|5:BEGIN|8:   k:=1;|25:   s:=toStringEvent(str);|27:   for i:=1 to Length(s) do|20:   if s[i]= then |9:    begin|41:      _hi_onEvent(onEnum, Copy(s,k,i-k));|13:      k:=i+1;|8:    end;|40:      _hi_onEvent(onEnum, CopyEnd(s,k));|29:      _hi_onEvent(onEndEnum);|12:    s:=';  |4:END;|0:|0:|4:end.|
 link(Str,3426764:Var1,[(461,180)])
}
Add(Label,1349864,490,238)
{
 Left=140
 Top=25
 Width=80
 Height=30
 Font=[Courier New,12,1,0,204]
 Caption=""
 AutoSize=1
 Alignment=1
}
Add(Label,12807532,497,329)
{
 Left=140
 Top=65
 Width=80
 Height=30
 Font=[Courier New,12,1,0,204]
 Caption=""
 AutoSize=1
 Alignment=1
}
Add(GetDataEx,3426764,490,175)
{
 link(Data,9098684:Text,[])
}
Add(For,11548312,399,196)
{
 End=999
 link(onEvent,2258172:doEnum,[])
 link(onStop,6856819:doStop,[(444,209)(444,257)(296,257)(296,209)])
}
Add(For,11792497,399,287)
{
 End=999
 link(onEvent,2448795:doEnum,[])
 link(onStop,9371103:doStop,[(443,300)(443,345)(296,345)(296,300)])
}
Add(Memory,2748844,602,196)
{
}
Add(Memory,2382537,609,287)
{
}
Add(Label,14697089,161,252)
{
 Left=15
 Top=25
 Width=93
 Height=108
 Font=[Consolas,12,1,16711680,204]
 Caption="Str_enum

IC_enum

IC_Pascal
"
 AutoSize=1
 Alignment=1
}
Add(Hub,3481352,224,196)
{
 OutCount=3
 link(onEvent1,6856819:doStart,[])
 link(onEvent2,9371103:doStart,[(273,209)(273,293)])
 link(onEvent3,13089441:doStart,[(268,216)(268,391)])
}
Add(InlineCode,15830598,539,385)
{
 WorkPoints=#6:doEnum|
 EventPoints=#6:onEnum|9:onEndEnum|
 DataPoints=#3:Str|
 Code=#15:unit HiAsmUnit;|13:// Author Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|7:   str,|10:   onEnum,|25:   onEndEnum : THI_Event;|51:     PROCEDURE doEnum(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doEnum;|18:var s, ss :string;|23:    i, k, j, m:integer;|5:BEGIN|16:   k:=1; ss:=';|25:   s:=toStringEvent(str);|21:   if s=' then exit;|27:   for i:=1 to Length(s) do|20:   if s[i]= then |9:    begin|41:      for j:=k to i-1 do ss := ss + s[j];|30:      _hi_onEvent(onEnum, ss);|13:      k:=i+1;|13:      ss:=';|8:    end;|43:      for j:=k to Length(s) do ss:=ss+s[j];|35:      _hi_onEvent(onEnum, ss);     |29:      _hi_onEvent(onEndEnum);|22:      s:='; ss:=';  |4:END;|0:|0:|4:end.|
 link(Str,3426764:Var3,[(545,180)])
}
Add(StrList,9098684,490,91)
{
}
Add(Trim,16046146,378,112)
{
 Mode=7
 link(onTrim,9098684:doText,[])
 link(Text,13149159:Text,[])
}
Add(Hub,10386734,315,84)
{
 link(onEvent1,13149159:doLoad,[])
 link(onEvent2,16046146:doTrim,[(353,97)(353,118)])
}
Add(TimeCounter,13089441,308,385)
{
 Precision=1
 link(onStart,16487367:doFor,[])
 link(onStop,2711271:doText,[(372,398)(372,427)])
}
Add(Label,2711271,497,421)
{
 Left=140
 Top=105
 Width=80
 Height=30
 Font=[Courier New,12,1,0,204]
 Caption=""
 AutoSize=1
 Alignment=1
}
Add(For,16487367,399,385)
{
 End=999
 link(onEvent,15830598:doEnum,[])
 link(onStop,13089441:doStop,[(443,398)(443,440)(293,440)(293,398)])
}
Add(Memory,7188861,609,385)
{
}