Вверх ↑
Этот топик читают: Гость
Ответов: 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
vip
#1.1контекстная реклама от партнеров
Ответов: 1161
Рейтинг: 160
#2: 2010-07-14 10:08:52 ЛС | профиль | цитата
KOL.pas писал(а):
function TrimLeft(const S: string): string;
function TrimRight(const S: string): string;
function Trim( const S : string): string;

Все эти функции не используют разделителя. В компоненте Trim он реализован
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#3: 2010-07-14 10:35:11 ЛС | профиль | цитата
Ivann, Америка была открыта давно.
Читаем здесь http://hiasm.com/forum.html?q=3&p=141003#p141003
А это сам компонент
http://hiasm.com//getfile/16368
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)