Add(MainForm,2953706,63,238)
{
 Width=444
 Height=352
 Position=1
}
Add(InlineCode,7507790,315,238)
{
 WorkPoints=#6:doWork|
 EventPoints=#3:Res|
 DataPoints=#4:Path|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|22:uses  kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|23:   path, res:THI_Event;|49:   procedure doWork(var _Data:TData; Indew:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doWork;|17:var s,p,f:string;|14:    i:boolean;|5:begin|9:i:=false;|31:s:= ReadString(_Data,path,''); |18:if s='' then exit;|61:If pos('/',s)<>0 then begin replace(s,'/','\'); i:=true; end;|24:p := ExtractFilePath(s);|24:f := ExtractFileName(s);|29:if i then replace(p,'\','/');|37:_hi_OnEvent(res,'Путь к файлу:; '+p);|35:_hi_OnEvent(res,'Полное имя: ;'+f);|65:_hi_OnEvent(res,'Имя без расширения: ;'+ExtractFileNameWOext(f));|60:_hi_OnEvent(res,'Расширение с точкой: ;'+ExtractFileExt(f));|72:_hi_OnEvent(res,'Расшиоение без точки: ;'+copyend(ExtractFileExt(f),2));|21:_hi_OnEvent(res,';');|4:end;|4:end.|
 link(Res,4967300:doAdd,[])
}
Add(Edit,4761174,224,175)
{
 Left=95
 Top=10
 Width=325
 Text="C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu"
}
Add(Button,13860458,105,238)
{
 Left=15
 Top=5
 Caption="Win"
 link(onClick,8663901:doData,[])
}
Add(Button,551902,105,280)
{
 Left=15
 Top=35
 Caption="URL"
 link(onClick,7276878:doData,[])
}
Add(Edit,4040794,175,175)
{
 Left=95
 Top=35
 Width=325
 Text="http://forum.hiasm.com/topic/66676/1"
}
Add(DoData,8663901,224,238)
{
 link(onEventData,491796:doWork2,[])
 link(Data,4761174:Text,[])
}
Add(DoData,7276878,175,280)
{
 link(onEventData,491796:doWork3,[(291,286)])
 link(Data,4040794:Text,[])
}
Add(StringTable,4967300,371,238)
{
 Top=64
 Width=428
 Height=250
 Align=4
 Columns=#5:1=150|5:2=250|
 Grid=0
}
Add(HubEx,491796,287,238)
{
 link(onEvent,7507790:doWork,[])
}