Склонение ФИО

[Lokos]

Здравствуйте.
Встал вопрос в написании функции склоняющей Фио по падежам, кто может поделиться полезной информацией в этой области?

[kta87]

Вот тут есть пример макроса на VBA. Реализовать на Object Pascal это труда не составит.

[Serge_Bliznykov]

Сообщение от Lokos

Здравствуйте.
Встал вопрос в написании функции склоняющей Фио по падежам, кто может поделиться полезной информацией в этой области?

Лучшее, что было разработано в этой области для русского языка, имхо,
было на Королевстве Delphi вот тут:
Склонение фамилий, имен и отчеств по падежам Библиотека функций.

[Lokos]

читал про эту библиотеку но как то с ней не сложилось, может что то не так делаю.
код с оф сайта

function GetFIOPadeg;
var pGetFIOPadeg: TGetFIOPadeg;
begin
  LoadPadeg;
  Result:='';
  pGetFIOPadeg:=GetProcAddress(LibPadeg, 'GetFIOPadeg');
  if not Assigned(pGetFIOPadeg) then begin
    raise Exception.Create('Функция ''GetFIOPadeg'' в библиотеке PADEG.DLL не найдена');
  end;
  nLen:=Length(pLastName+pFirstName+pMiddleName)+10;
  res:=StrAlloc(nLen);
  try
    error:=pGetFIOPadeg(PChar(pLastName), PChar(pFirstName), PChar(pMiddleName), bSex, nPadeg, res, nLen);
    if error = 0 then
      SetString(Result, res, nLen)
    else
      CreateError(error);
  finally
    StrDispose(res);
  end;
end;

мой код

procedure TForm1.Button2Click(Sender: TObject);
var
pResult:pChar;
nLen:LongInt;
 pVar:integer;
 result:string;
begin
     if Assigned(GetFIOPadeg) then
      begin
        nLen :=( Length(LblSernameZakaz.Text)+Length(LblNameZakaz.Text)+Length(LblPatronymicZakaz.Text))+20;

        pResult:=StrAlloc(nLen);
        try   pVar:=GetFIOPadeg(PChar(LblSernameZakaz.Text),PChar(LblNameZakaz.Text),PChar(LblPatronymicZakaz.Text),false,3,pResult, nLen);
           if pvar=0 then
            SetString(Result, pResult, nLen) ;
           Memo11.Lines.Add(inttostr(pvar));
           Memo11.Lines.Add(Result);
        finally
           StrDispose(pResult);
       end;
end;
end;

Выводится грубо говоря каша, кусок фамилии, имени, отчества и гора непонятных символов, подскажите в чем проблема?

[Lokos]

В который раз убеждаюсь что это лучший форум)
вот отличный пост где очень все интересно расписано правда реализую сам с именами чудесно работает)
http://www.programmersforum.ru/showthread.php?t=58898