Добро пожаловать в StackOverflow.
Просто запустите счетчик в foreach и разбейте его до желаемого значения.
Не проверенный код ниже
if($result !== false) {
// Parse the result set, and add the URL in the XML structure
$counter = 0;
foreach($result as $row) {
$counter++
$xmlsitemap .= '
<url>
<loc>'. $row['shortUrl'] .'</loc>
<priority>0.5</priority>
<changefreq>weekly</changefreq>
</url>';
if($counter==4900){
break;
}
}
}
Я считаю, что это то, что вы ищете:
Преобразование десятичных чисел в текст, показывающий только ненулевые десятичные дроби
Эта строка может быть особенно полезной:
StringVar text := Totext ( {Your.NumberField} , 6 , "" ) ;
первый параметр - это десятичная дробь, которую нужно преобразовать, второй параметр - количество десятичных знаков, а третий параметр - разделитель для тысяч / миллионов и т. д.