функция ExtractNumber (s: шнур): интежер;
var iий: интежер;
начните
если Pos («=», s) > 0 после этого
s: = экземпляр (s, Pos («=», s) +1, длины);
для I: = 1 к длинам делает
если не, то (s [I] внутри [«0». «9»]) после этого
начните
System.Delete (s, I, длина);
пролом;
конец;
Результат: = StrToIntDef (s, 0);
конец;
|