Delphi 7: Количество вхождений подстроки в строку

Источник

uses StrUtils;

...

function Substr_Count(const Substring, Text: string): integer;
var
offset: integer;
begin
result := 0;
offset := PosEx(Substring, Text, 1);
while offset <> 0 do
begin
inc(result);
offset := PosEx(Substring, Text, offset + length(Substring));
end;
end;

Схемы горячих клавиш в редакторе Delphi 7

В схеме гор.клавиш "по-умолчанию" TAB не сдвигает выделенный текст, а просто вставляет табуляцию, стирая выделенное, но это можно изменить, выбрав другую схему:
пункт меню Tools -> Editor Options -> вкладка "Key Mappings".
Выбираем схему, например "Visual Studio" и таб сдвигает выделенный текст.