запрос на выборку в Delphi 7

программирование программы Delphi

Доброго времени суток! Возникла ситуация в следующем, в институте на практике задали задание написать программу на delphi 7. далее условие: Дан произвольный текстовый файл содержащий к примеру строчку вот такую aaabbbcacacabbb. заканчивающейся точкой.Суть программы, заключается что нужно троекратно повторяющийся символ записать к примеру в соседнюю форму, но только один раз, то есть ab и чтобы если символы повторяющиеся дважды записывались только один раз, результат сохранить в файл. Из всего вышеперечисленного меня волнует как реализовать по сути, два алгоритма фильтрации первый на количество повторяющихся символов, а второй на запись к примеру во второй эдит, проблема вся в том что не могу найти в рунете кода для фильтрации именно текста всё идёт на базы данных скорее чем на строчный текст, помогите, кто чем может либо сайтом либо кодом, второе если расчитываю в пределе 500 рублей.
Ответы:
function FindDublicateChar(var PC: PChar; MinDublCount: Integer = 3): Char;
var
 I: Integer;
begin
 while PC^ <> #0 do
 begin
   for I := 1 to MinDublCount -1 do
     if PC^ <> PC[I] then
       Breack
     else
       if I = MinDublCount -1 then
         Exit(PC^);
   Inc(PC);
 end;
 Result := #0;
end;


13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.