Add(MainForm,2953706,476,399)
{
 Width=792
 Height=380
 link(onActivate,6627302:doEvent1,[])
}
Add(RichEdit,7915306,748,189)
{
 Left=30
 Top=40
 Width=330
 Height=100
 Strings=#5:Текст|
 Point(onMouseUp)
 Point(onKeyUp)
 Point(doLoad)
 Point(doSave)
 Point(FileName)
 Point(onDblClick)
 Point(doSetSelect)
 Point(PHandle)
}
Add(Edit,12740447,1057,287)
{
 Left=30
 Top=145
 Width=330
 Height=30
 Font=[MS Sans Serif,12,1,0,1]
}
Add(RichEdit,16223376,916,287)
{
 Left=30
 Top=180
 Width=330
 Height=105
 AddType=1
 Point(onMouseUp)
 Point(onKeyUp)
 Point(doLoad)
 Point(doSave)
 Point(FileName)
 Point(onDblClick)
 link(onChange,12441107:doEvent1,[])
 link(Str,11438320:Item,[(922,275)(846,275)(846,331)(769,331)])
}
Add(ArrayEnum,11438320,763,287)
{
 link(onItem,16223376:doAdd,[])
 link(Array,7915306:Array,[(769,261)(768,261)])
}
Add(Hub,12441107,987,287)
{
 link(onEvent1,12740447:doText,[])
 link(onEvent2,11438320:doStop,[(1009,300)(1009,358)(751,358)(751,300)])
}
Add(Hub,6627302,623,399)
{
 link(onEvent1,11438320:doEnum,[(700,405)(700,293)])
 link(onEvent2,12370788:doEnum,[(697,412)(697,522)])
}
Add(Edit,14500320,1050,516)
{
 Left=400
 Top=145
 Width=330
 Height=30
 Font=[MS Sans Serif,12,1,0,1]
}
Add(RichEdit,9833928,909,516)
{
 Left=400
 Top=180
 Width=330
 Height=105
 AddType=1
 Point(onMouseUp)
 Point(onKeyUp)
 Point(doLoad)
 Point(doSave)
 Point(FileName)
 Point(onDblClick)
 link(onChange,12992977:doEvent1,[])
 link(Str,12370788:Item,[(915,504)(839,504)(839,560)(762,560)])
}
Add(ArrayEnum,12370788,756,516)
{
 link(onItem,9833928:doAdd,[])
 link(Array,7931368:Array,[])
}
Add(Hub,12992977,980,516)
{
 link(onEvent1,14500320:doText,[])
 link(onEvent2,12370788:doStop,[(1001,529)(1001,586)(744,586)(744,529)])
}
Add(Memo,7931368,742,411)
{
 Left=400
 Top=40
 Width=330
 Height=100
 Strings=#5:Текст|
}

Add(RichEdit,7915306,294,126)
{
 Left=30
 Top=40
 Width=330
 Height=100
 Strings=#5:Текст|
 Point(onMouseUp)
 Point(onKeyUp)
 Point(FileName)
 Point(onDblClick)
 Point(doSetSelect)
 Point(PHandle)
}
Add(ArrayEnum,11438320,399,273)
{
 link(onItem,11658717:doMessage,[])
 link(Array,5206907:Array,[])
}
Add(Button,8347562,231,210)
{
 Left=390
 Top=300
 link(onClick,7330536:doData,[])
}
Add(Message,11658717,455,273)
{
}
Add(StrList,5206907,385,189)
{
}
Add(DoData,7330536,294,210)
{
 link(onEventData,14311056:doEvent1,[])
 link(Data,7915306:Text,[])
}
Add(Hub,14311056,343,210)
{
 link(onEvent1,5206907:doText,[])
 link(onEvent2,11438320:doEnum,[(378,223)(378,279)])
}

Add(MainForm,757995,315,308)
{
 Width=792
 Height=380
 link(onActivate,6627302:doEvent1,[])
}
Add(RichEdit,7915306,574,105)
{
 Left=30
 Top=40
 Width=330
 Height=100
 Strings=#5:Текст|
 Point(onMouseUp)
 Point(onKeyUp)
 Point(doLoad)
 Point(doSave)
 Point(FileName)
 Point(onDblClick)
 Point(doSetSelect)
 Point(PHandle)
}
Add(Edit,12740447,896,196)
{
 Left=30
 Top=145
 Width=330
 Height=30
 Font=[MS Sans Serif,12,1,0,1]
}
Add(RichEdit,16223376,755,196)
{
 Left=30
 Top=180
 Width=330
 Height=105
 AddType=1
 Point(onMouseUp)
 Point(onKeyUp)
 Point(doLoad)
 Point(doSave)
 Point(FileName)
 Point(onDblClick)
 link(onChange,12441107:doEvent1,[])
}
Add(Hub,12441107,826,196)
{
 link(onEvent1,12740447:doText,[])
 link(onEvent2,7002217:doStop,[(852,209)(852,230)(562,230)(562,251)])
}
Add(Hub,6627302,462,308)
{
 link(onEvent1,7002217:doEnum,[(525,314)(525,244)])
 link(onEvent2,10134946:doEnum,[(528,321)(528,431)])
}
Add(Edit,14500320,889,425)
{
 Left=400
 Top=145
 Width=330
 Height=30
 Font=[MS Sans Serif,12,1,0,1]
}
Add(RichEdit,9833928,748,425)
{
 Left=400
 Top=180
 Width=330
 Height=105
 AddType=1
 Point(onMouseUp)
 Point(onKeyUp)
 Point(doLoad)
 Point(doSave)
 Point(FileName)
 Point(onDblClick)
 link(onChange,12992977:doEvent1,[])
}
Add(Hub,12992977,819,425)
{
 link(onEvent1,14500320:doText,[])
 link(onEvent2,10134946:doStop,[(845,438)(845,411)(569,411)(569,438)])
}
Add(Memo,7931368,581,320)
{
 Left=400
 Top=40
 Width=330
 Height=100
 Strings=#5:Текст|
}
Add(Str_Enum,7002217,574,238)
{
 link(onEnum,16223376:doAdd,[(680,244)(680,202)])
 link(String,7915306:Text,[])
}
Add(Str_Enum,10134946,581,425)
{
 link(onEnum,9833928:doAdd,[])
 link(String,7931368:Text,[])
}

  L := Perform( fCommandActions.aGetItemLength, Pos, 0 )
  ...
  GetMem( Buf, L + 4 );
  PWORD( Buf )^ := L + [b]1[/b];

Add(RichEdit,7915306,490,238)
{
 Left=30
 Top=40
 Width=330
 Height=100
 Strings=#5:Текст|5:абвгд|5:first|
 Point(onMouseUp)
 Point(onKeyUp)
 Point(FileName)
 Point(onDblClick)
 Point(doSetSelect)
 Point(PHandle)
 Point(SelText)
}
Add(ArrayEnum,11438320,504,378)
{
 link(onItem,11658717:doMessage,[])
 link(Array,7915306:Array,[])
}
Add(Button,8347562,455,378)
{
 Width=95
 Caption="массив REdit"
 Data=String(проба)
 link(onClick,11438320:doEnum,[])
}
Add(Message,11658717,560,378)
{
}
Add(InlineCode,14926846,406,378)
{
 WorkPoints=#1:a|
 DataPoints=#1:h|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,windows,messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|16:    h:THI_Event;|0:|42:    procedure a(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|24:procedure THiAsmClass.a;|15:var c:PControl;|15:    Buf: PChar;|14:    L:integer;|5:begin|34: c := PControl(ReadInteger(dt,h));|39: L := C.Perform( EM_LINELENGTH, 0, 0 );|13: //_debug(L);|22: GetMem( Buf, L + 4 );|61: PWORD( Buf )^ := L + 4; //В KOL так: PWORD( Buf )^ := L + 1;|44: C.Perform( EM_GETLINE, 0, Integer( Buf ) );|13: _debug(Buf);|17: //_hi_OnEvent();|4:end;|0:|4:end.|
 link(h,7915306:PHandle,[(412,330)(517,330)])
}
Add(Button,16775679,357,378)
{
 Left=100
 Width=95
 Caption="PHandle REdit"
 Data=String(проба)
 link(onClick,14926846:a,[])
}

Add(RichEdit,7915306,490,238)
{
 Left=30
 Top=40
 Width=330
 Height=100
 Strings=#5:Текст|5:абвгд|5:first|
 Point(onMouseUp)
 Point(onKeyUp)
 Point(FileName)
 Point(onDblClick)
 Point(PHandle)
 Point(SelText)
}
Add(ArrayEnum,11438320,504,378)
{
 link(onItem,11658717:doMessage,[])
 link(Array,7915306:Array,[])
}
Add(Button,8347562,455,378)
{
 Width=95
 Caption="массив REdit"
 Data=String(проба)
 link(onClick,11438320:doEnum,[])
}
Add(Message,11658717,560,378)
{
}

   while(i > 0)and(p[i] in ['a'..'y','A'..'?','a'..'z','A'..'Z'])do
...
   while(i < Length(p))and(p[i] in ['a'..'y','A'..'?','a'..'z','A'..'Z'])do
...

   while(i > 0)and(p[i] in ['а'..'я','А'..'Я','a'..'z','A'..'Z'])do
...
   while(i < Length(p))and(p[i] in ['а'..'я','А'..'Я','a'..'z','A'..'Z'])do
...