[ShutTap]

1. Есть текст в RichEdit. Необходимо удалить все слова кроме существительных и словосочитаний (с участием хотя бы одного существительного). Потом, в оставшемся тексте из существительных и словосочитаний посчитать количество встречаемости каждого из слов (словосочитаний), учитывая их возможные формы (мн.ч, ед.ч, падежи).

Предполагаю, что для существительных и прилагательных надо выписать все возможные окончания, и удалять все слова, кроме слов с такими окончаниями. У словосочитаний порядок наверное такой, стандартный: прилагательное-существительное (хвойный лес), или существительное(главное)-существительное (база данных). Есть еще какие-то мысли?

2. Необходимо вывести какие-то слова, и рядом еще несколько слов, при нажатии на каждое из которых должно открыться определение этого слова. Какой элемент лучше использовать для реализации такого?

Я делал в StringGrid, но как осуществить нажатие на отдельное слово в ячейке не знаю... И для хранения таких записей что лучше использовать? Текст - несколько связанных ссылок с чем то и этим текстом

[angvelem]

В StringGrid-е имеется событие OnSetEditText возникающее при редактировании ячейки и OnMouseDown в котором можно вызвать метод MouseToCell для уточнения ячейки. Выбирай, что больше подходит. Как хранить зависит только от фантазии.

[ShutTap]

если я правильно понял, это не то... у меня есть одна ячейка, а в ней через запятую, например, перечислены слова. и кликнув на разные слова в одной ячейке произойдут разные события. Но если такое нельзя сделать в стринггриде, то где можно? или каким образо такое сделать

[angvelem]

В RichEdit-е.

[ShutTap]

как? в какую сторону смотреть.

и на счет структуры хранения данных не очень представляю. Получается, будут данные в стринггриде. К примеру одна строка ричедита соответствует строке в стрингриде. Но как связать их между собой? При нажатии слова открывется его определение или синоним, как связать слово с его определением?
То есть, получается слово в стрингриде - слова в ричедите, каждому из которых что-то соответствует... как это хранить.

вообще это все делается, так как дали задание сделать хотя бы подобие автоматизированной системы заполнения тезауруса

[angvelem]

Смотри OnMouseDown, далее опрделить строку и слово в ней по координатам. К ячейкам StringGrid-а можно "привязать" объект в котором будет хранится определение слова. В качестве объекта может выступать обычная запись (record).

[ShutTap]

а как сохранить первое слово в richedit в первую ячейку stringgrid, второе слово во вторую ячейку, третье в третью и тд? как выделить что это первое слово, это второе? есть какая нибудь функция типа как RichEdit.Findtex где в параметрах можно указать слово целиком и тп?

[Pyro]

разбивает на слова по пробелам

PHP код:

function Split(s: string; c: char = ' '): TStringList;
begin
  s := StringReplace(s, c, #13#10, [rfReplaceAll]);
  while s <> StringReplace(s, #13#10#13#10, #13#10, [rfReplaceAll]) do
    s := StringReplace(s, #13#10#13#10, #13#10, [rfReplaceAll]);

  result := TStringList.Create;
  result.Text := s;
end 


;

[ShutTap]

точки, запятые и тп знаки - так же? как обозначается перехдо на новую строку?

[Pyro]

PHP код:

function Split(s: string; c: char): string; overload;
begin
  s := StringReplace(s, c, #13#10, [rfReplaceAll]);
  while s <> StringReplace(s, #13#10#13#10, #13#10, [rfReplaceAll]) do
    s := StringReplace(s, #13#10#13#10, #13#10, [rfReplaceAll]);

  result := s;
end;
function List(s: string): TStringList;
begin
  result := TStringList.Create;
  result.Text := s;
end;
function Split(s: string; shit: string = ' ,.'): string; overload;
var i: integer;
begin
  result := s;
  for i := 1 to length(shit) do
    result := Split(result, shit[i]);
end; 


[ShutTap]

спасибо, попробую