Типа синонимайзер

[kardinal94]

Всем еще раз доброго времени суток. Мне тут нужна одна программка, типа рерайт, но только для меня.
Суть в том, что при наборе текста автоматом меняются слова. Базу буду делать сам. Исходя из этого есть идеи, может у вас будут получше.
Итак, мне надо текст набирать в Мемо, при наборе программа обращается к базе, если находит такое слово, автоматом заменяет.
Теперь САБЖ.
Есть идея сделать базу например в INI.
Пишу там
[Привет]
1=Здравствуйте.
2= Добрый день.
При необходимости читаю ('Привет', '1' или '2' или '3') беру любой из них. Но таким образом надо будет каждое слово прописывать).
При этом насколько я понимаю мне надо каждую строку мемо делать стринг, обращаться к каждому слову отдельно и искть ее в базе.
У кого какие идеи и способы реализации.

[psycho-coder]

ничего не понял. Приведите пример

[kardinal94]

Извините. Мозг спит уже два часа ). Например, пишу текст в Мемо, сижу просто набираю, например я написал "Привет, как у вас дела?". Разбивается стринг на слова "Привер", "Как", "у", "Вас", "дела", "?". программа идет в INI файл, ищет сектор:
[Привет], там например содержится 1=Здравствуйте, 2= Добрый день. вместо слова "Привет" подставляет одно из значений сектора (Здравствуйте или добрый день). и так с каждым словом. Так понятней?

[psycho-coder]

То есть она выводит список доступных вариантов из [Привет]?

[kardinal94]

Сообщение от psycho-coder

То есть она выводит список доступных вариантов из [Привет]?

Подставляет вместо "Привет" один из доступных вариантов.

[psycho-coder]

А какой именно? А если их там пять или шесть? На свой выбор?

[kardinal94]

В идеале конечно можно было подсветку слов, которые есть в базе сделать и при клипе правой кнопкой мыши в popup варианты и заменяешь, НО там одним Memo думаю не обойтись, нужны сторонние компоненты, а это не очень хорошо и реализация будет намного окей.

А так пока можно загружать в какую то форму, listbox и выбирать

[psycho-coder]

А ну тогда, загрузить *.ini файл в память и с ним работать.
При наборе текста проверять, например через PosEx, содержатся ли совпадения в файле. Если есть то запускать обработку.
Если не к спеху завтра вечером могу взяться помочь.

А по хорошему думаю нужно базу данных юзать

[kardinal94]

Сообщение от psycho-coder

А ну тогда, загрузить *.ini файл в память и с ним работать.
При наборе текста проверять, например через PosEx, содержатся ли совпадения в файле. Если есть то запускать обработку.
Если не к спеху завтра вечером могу взяться помочь.

А по хорошему думаю нужно базу данных юзать

ну база будет думаю слишком тяжелая будет. В принципе принцип работы с INI понятен, мне надо просто там искать сектор с названием, идентичным каждому слову текста, только не понятно мне как брать из мемо каждое слово по отдельности и как именно его обрабатывать? Через цикл? буду рад помощи. В принципе не очень спешу

[psycho-coder]

Ну, добыть набираемое слово можно так

procedure TForm1.Memo1Change(Sender: TObject);
begin
  if Tag > 0 then
  begin
    Memo1.SelStart := Tag;
    Memo1.SelLength := Abs(Length(Memo1.Text) - Tag);
    Label2.Caption := Memo1.SelText;
    Memo1.SelStart := Length(Memo1.Text);
  end;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #32 then Tag := Memo1.SelStart;
end;

Разумеется еще есть над чем поработать