Вверх ↑
Ответов: 3349
Рейтинг: 233
#1: 2010-07-14 10:04:35 ЛС | профиль | цитата
В КОL есть стандартная функция Trim,TrimLeft,TrimRight.
Почему в одноименном компоненте не использовали их?
------------ Дoбавленo в 10.04:

Add(InlineCode,14630045,399,343)
{
@Hint=#4:Trim|
WorkPoints=#6:doTrim|
EventPoints=#6:onTrim|
DataPoints=#3:str|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|17: str:THI_Event;|21: onTrim:THI_Event;|50: procedure doTrim(var _data:TData; Index:Word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doTrim;|5:begin|49:_hi_OnEvent(onTrim,Trim(ReadString(_data, str)));|4:end;|0:|4:end.|
AddHint(80,-37,35,13,@Hint)
}
Add(InlineCode,2001696,399,385)
{
@Hint=#9:TrimRight|
WorkPoints=#6:doTrim|
EventPoints=#6:onTrim|
DataPoints=#3:str|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|17: str:THI_Event;|21: onTrim:THI_Event;|50: procedure doTrim(var _data:TData; Index:Word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doTrim;|5:begin|54:_hi_OnEvent(onTrim,TrimRight(ReadString(_data, str)));|4:end;|0:|4:end.|
AddHint(81,-59,60,13,@Hint)
}
Add(InlineCode,5426272,399,427)
{
@Hint=#8:TrimLeft|
WorkPoints=#6:doTrim|
EventPoints=#6:onTrim|
DataPoints=#3:str|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|17: str:THI_Event;|21: onTrim:THI_Event;|50: procedure doTrim(var _data:TData; Index:Word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doTrim;|5:begin|53:_hi_OnEvent(onTrim,TrimLeft(ReadString(_data, str)));|4:end;|0:|4:end.|
AddHint(82,-80,53,13,@Hint)
}

карма: 1

0