CUTFROM — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 10: | Строка 10: | ||
if [[Empty]]( [[at]]( txtitem, xmlstring ) ) | if [[Empty]]( [[at]]( txtitem, xmlstring ) ) | ||
| − | result := '' | + | result := '''' |
else | else | ||
result := [[Copy]]( xmlstring, [[at]]( txtitem, xmlstring ) + [[len]]( txtitem ), [[len]]( xmlstring ) ) | result := [[Copy]]( xmlstring, [[at]]( txtitem, xmlstring ) + [[len]]( txtitem ), [[len]]( xmlstring ) ) | ||
endif | endif | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 13:54, 28 апреля 2017
CUTFROM - это программа из справочника R266
Вырезать начиная с указанного элемента до конца строки
CUTFROM( xmlstring, txtitem )
xmlstring - строка
txtitem - элемент
Текст
parameters xmlstring, txtitem if Empty( at( txtitem, xmlstring ) ) result := ' else result := Copy( xmlstring, at( txtitem, xmlstring ) + len( txtitem ), len( xmlstring ) ) endif
