Фильтр матов в Memo

[One.Love]

Ребят помогите пожалуйста -(
Срочно нужно сделать фильтр матерных слов в Memo.
Я так предполагаю что должен быть ListBox или лучше всего база данных, и при каждом введенном слове в мемо должен отслеживаться мат, и если он занесен в базу данных, то должен автоматом стираться...
Вообщем точного представления не имею. Если не сложно помогите кодом пожалуйста? -( Заранее премного благодарен -)

[Arigato]

Что именно не понятно? Можно хранить список в текстовом файле, его загружать в TStringList, определять присутствие слова в тексте Memo при помощи функции Pos. Если есть - стирать.

[One.Love]

Просто ниразу не работал с мемо так серьезно, он у меня всегда был как контейнер для хранения или передачи текста. Можешь подробнее подсказать, если не сложно с кодом? -(

[Arigato]

Memo1.Lines.Text - получить содержимое Memo1 в виде текстовой строки. В нем и нужно производить замену.

[One.Love]

Объясни как для чайников каким образом производить эту самую замену?
Блин ниразу не работал с ними -(

[One.Love]

мне кто-нибудь поможет с фильтром? Люди срочно надо, ниразу не работал с разбором слов, помогите пожалуйста кодом? -(

[FaTaL]

Ну типа если например матерные слова загрузить в ListBox, то
for i:=0 to ListBox.ItemsCount-1 do
begin
и тут проверяешь
If Pos(ListBox.Items.Strings[i]) then
удалешь или что-то с ней делаешь
end;

Это просто как пример.

[Altera]

Я вижу этот алгоритм так:
1) Сначала надо проверяемый текст разбить на слова. Т.е. надо узнать, сколько всего слов в тексте, а потом пустить циклом, от первого слова до последнего в предложении. В каждом периоде цикла следует покучать соответствующее индексу слово и искать в нём (другим циклом, длина которого зависит от количества нецензурных слов в базе данных) мат. Вот тут уже и функция pos пригодиться.
з.ы. Лучше, если в базе будут содержаться не слова целиком а их корни, или основы, например "ху", "еб" и т.д.

Сейчас у меня нет времени, в школу пора. Чуть позже может разработаю этот алгоритм...

[Altera]

Вот набросок

function checkWord(const value: pChar): boolean;
var
c: integer;
begin
   result := true;
   for c := 0 to forma.Memo3.Lines.Count - 1 do
      if pos(forma.Memo3.Lines[c], value) <> 0 then
      begin
         result := false;
         exit;
      end;
end;

function censur(const value: pChar): pChar;
const
//sep: string = ' '+#13#10;
syb: string = 'абвгдеёжсийклмнопрстувхцчшщъыьэюя'+
'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var
c: integer;
text, curWord: string;
begin
   c := 0; text := ''; curWord := '';

   while c <= length(value) do
   begin
      if pos(value[c], syb) = 0 then
      begin
         if curWord <> '' then
         begin
            if checkWord(pChar(curWord)) then
               text := text + curWord;
            curWord := '';
         end;
      end
      else
      begin

      end;
      curWord := curWord + value[c];
      inc(c);
   end;
   result := pChar(text);
end;

procedure Tforma.button1Click(Sender: TObject);
begin
   memo2.Text := censur(pChar(memo1.Text));
end;

memo1 - поле ввода текста
memo2 - текст после цензуры
memo3 - здесь содержатся матерные слова.

[Dj_smart]

Вот, у меня в чате было реализовано:

str,sw,big, sensored:string;
n4c:boolean;
q3:integer;

sw:=Viewmemo.Lines[l]; // строчка поля, что фильтруем
big:=AnsiLowerCase(sw);
  if n4c then begin // n4c - проверять ли маты
  for n:=0 to MatForm.Mats.Items.Count-1 do begin // mats - матерные слова
    str:=MatForm.Mats.Items[n];
    while (pos(str,big)<>0) do begin
      q3:=pos(str,big);
      sw:=copy(sw,0,q3-1)+Sensored+copy(sw,q3+length(str),length(sw)); // sensored - строчка, на которую заменяется мат
      big:=ansilowercase(sw);
    end;
  end;

Если ничего не забыл - всё должно работать.
Как оказывается вырезать всё слово менее интереснее чем его корень. Лишь тот, кто желает унать мат подсознательно подставит нехватающий кусок)))