unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
THiAsmClass = class(TDebug)
private

public
onRes:THI_Event;
procedure doWork(var dt:TData; Idx:Word);
end;
const ext='.txt,.zip,.midi,.aac,.aif,.m3u,.m3u8,.mp4,.mpa,.wave,.wma,.flac,.m4a,';
implementation
procedure THiAsmClass.doWork;
var F,E:string;
BEGIN
F:= toString(dt);
// E:= copy(F, pos('.',F),6) + ',';
E:= __DelimiterLast(PChar( F), Char('.'))+ ',';
if pos(E,ext)>0 then _hi_OnEvent(onRes,F);
END;
end.