[ShutTap]

В WoW (и других линейках наверное тоже), когда вводишь ник персонажа, появляется оконце со всеми его падежами и правильно подставленными окончаниями...

Необходимо сделать такое же в делфи...

Может есть какие-то у кого решения или заготовки, мысли?

[angvelem]

Создаёшь по падежам массив со всеми возможными окончаниями и при необходимости подставляешь.

[ShutTap]

у нас 3 рода, единичное и множественное число.. потом надо как-то отделить окончание у слова от корня, суффикса, приставок и тп, определить его род... потом, если словосочитание, еще надо определить какое там слово главное, типа "база данных" склонятся будет только "база", но как это все определить?

[angvelem]

Делать полностью с соблюдениями всех правил русского языка, как мне кажется, будет накладно. Проще сделать некий упрощённый вариант. Хорошо, если заранее известен набор слов, иначе нужно иметь некую базу (можно и от какого-нибудь переводчика) и от неё "танцевать".

[ShutTap]

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

[ShutTap]

что-то сделал, кроме исключений вроде более менее работает, сойдет)

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

word:array[0..11] of string - исходный массив с повторами,
findword:array of string - новый массив, где не должно быть повторов

Код:

for i:=0 to Length(word)-1 do
 begin
   flag:=true;

   for k:=0 to Length(finword)-1 do
    begin
     if word[i]=finword[k] then
     begin
      flag:=false;
      break;
     end;
      if flag=true then
       begin
        SetLength(finword,Length(finword)+1);
        finword[length(finword)-1]:=word[i];

       end;
    end;
 end;

не работает. погуглил в интернете, там у кого-то точно такой же код, вроде, и работает... Не подскажите, что не так?

[angvelem]

Пользуйся тегом "{CODE}{/CODE}", не используй служебные слова в своих вариациях

Код:

// word[0..11] - исходный массив с повторами

флаг flag не используется, так как команда Break прекращает выполнения цикла и следующая проверка не произойдёт.

[ShutTap]

без break вообще не работает

[angvelem]

Имеется в виду, что флаг flag не нужен в данном случае вообще.

Код:

  for i:=0 to Length(word)-1 do
  begin
    for k:=0 to Length(finword)-1 do
    begin
      if word[i]=finword[k] then
        break;

        SetLength(finword,Length(finword)+1);
        finword[length(finword)-1]:=word[i];
    end;
 end;

[ShutTap]

Код:

SetLength(finword,0);

   for i:=0 to Length(word)-1 do
    for k:=0 to Length(finword)-1 do
    begin
     if word[i]=finword[k] then
      break;

      SetLength(finword,Length(finword)+1);
      finword[length(finword)-1]:=word[i];
    end;

что-то не копирует.. в итоге длина нового массива = 0

[ShutTap]

Что-то никак не получается...

[angvelem]

И не будет, я только лишнюю переменную убрал, а алгоритм не посмотрел толком, а зря

Код:

for k:=0 to Length(finword)-1 do
...
      SetLength(finword,Length(finword)+1);

изначально массив равен 0, а увеличение массива происходит внутри цикла, после проверки его длины, котороя ВСЕГДА 0.

[ShutTap]

так работает

Код:

   for i:=j to Length(word)-1 do begin
     flag:=true;

    for k:=0 to Length(finword)-1 do
     if word[i]=finword[k] then
      flag:=false;

      if flag=true then
       begin
        SetLength(finword,Length(finword)+1);
        finword[length(finword)-1]:=word[i];
       end;
end;

break в самом начале был лишним,и флаг не в том месте стоял... спасибо за помощь)