Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2012-10-14 23:02:02 ЛС | профиль | цитата
А так будет совсем правильно и для Delphi и для FPC
NordWest писал(а):
Tad, спасибо, но вставка разделителей прямо в окне думаю лишнее.

С учетом замечаний - окончательный вариант для MAC

Add(Edit,13008997,217,98)
{
 Left=15
 Top=35
 Width=140
 Text=""
 MaxLenField=12
 link(onChange,8099851:doWork,[(257,104)(257,88)(149,88)(149,111)])
}
Add(InlineCode,8099851,161,105)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|5:onMac|
 Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|26:   onRes, onMac:THI_Event;|49:   Procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|29:Procedure THiAsmClass.doWork;|18:var ss,s : string;|21:       i,k : integer;|5:begin|37:     ss:= UpperCase(toString(_Data));|81:     For i:=1 to Length(ss) do if (ss[i] IN ['0'..'9','A'..'F']) then s:=s+ss[i];|26:     _hi_onEvent(onRes,s);|25:     If Length(s)=12 then|10:     begin|74:     for i := Length(s) downto 2 do if (i mod 2=1) then Insert(':', s, i);|26:     _hi_onEvent(onMac,s);|9:     end;|1: |4:end;|4:end.|
 link(onRes,13008997:doText2,[])
 link(onMac,7931430:doText,[(205,118)(205,153)])
}
Add(Label,7931430,217,147)
{
 Left=180
 Top=35
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0