Помощь новичкам

#2757

Всем привет! Подскажите, пожалуйста, есть ли встроенная функция для подсчёта количества непересекающихся вхождений подстроки в строку. Например, для подстроки ‘ABA’ и строки ‘ABABA’ возвращающая 1?

Понятно, что можно эту функцию вручную описать с использованием, например, Pos, но мой вопрос как раз в том, есть ли втроенная, готовая функция?

Знаю, что есть метод CountOf для строковых переменных, но он считает только количество вхождений односимвольных строк (или точнее char?) в строку.

Заранее спасибо!

Замечания и предложения
#2758 
##
var s := 'ABABA';
s.IndicesOf('ABA').Count.Print

Вызов со вторым параметром IndicesOf('ABA', True) вернет количество вхождений с учетом пересечений. Реализация - КМП-алгоритм, так что эффективно работает и для строк с безумной длиной.

3 лайка
#2759

Спасибо! Супер! :+1:

#2760

Пожалуйста. Еще можно написать регулярное выражение, найти все его вхождения посредством MatchValues и подсчитать их количество. Для коротких строк может оказаться наиболее быстрым решением.

1 лайк
#2761

“Игрища со строками” можно найти в интерактивном курсе, модуль “Символы и строки”.

2 лайка
#2762

Это верно, что процедура кривая Curve не реализовано в модуле GraphWPF&

Обсуждение книги Осипова А.В. «PascalABC.NET: Введение в современное программирование»
#2763

Да, верно

#2764

С тех времён появилось что-то лучше?

#2765

В каком направлении лучше?

#2766

К универсальности.

#2767

Не появилось. Но не исключено, что появится со временем. Что-то, похожее на калькулятор символьного выражения.

#2768

Подскажите пожалуйста, есть-ли процедура или функционал в модуле GraphWPF заменяющее процедуру FloodFill модуля GraphABC?

#2769

Можно ли запретить изменение элементов динамического массива в подпрограмме?

#2770 
##
procedure P(const a: array of integer);
begin
  a[0] := 1;
  a.Println
end;

var a := |10, 20, 30|;
P(a);
a.Print
1 лайк
#2771

Действительно работает. А тут я попробовал в FPC такое сделать, но перед этим задал тип TAi = array if integer и там элементы изменять в подпрограмме было можно. Но если же в подпрограмме указать тип параметра массива как array of integer, то также заработало. Здесь и так и эдак изменять элементы нельзя.

#2772

А для чего это?

#2773

Массив в PascalАВС.NЕТ имеет ссылочный тип. Если его в подпрограмме описать как var - можно будет там создать другой массив и подсунуть его вместо аргумента. Это как дать коробку конфет, а взамен получить мешочек с бочонками лото. Если var не указывать, можно проделывать с массивом все то, что не меняет ссылку на сам массив. Т.е. оболочку сохраняем, содержимое можем менять. Дали коробку с конфетами - возвращаем эту же коробку, хоть с понадкусанными, но все же с конфетами. И, наконец, const говорит о том, что тебе дали музейный экспонат: полюбовался, языком поцокал - и вернул в целости и сохранности.

2 лайка
#2774

ОК! Очень интересные пословицы.

#2775

Подскажите пожалуйста, есть-ли процедура или функционал в модуле GraphWPF заменяющее процедуру FloodFill модуля GraphABC?

#2776

Видимо, нет. В некоторых случаях можно исхитриться и использовать FillPolygon, но это жутко неудобно. Возможно, и это, и Curve из GraphABC сложно реализовать в WPF.