Имеется библиотека "Преобразование ФИО v2.0" С. Плахова. Подскажите как ее подключить к FastReport 3.0 чтобы в отчетах можно было выполнять склонение ФИО.
Имеется библиотека "Преобразование ФИО v2.0" С. Плахова. Подскажите как ее подключить к FastReport 3.0 чтобы в отчетах можно было выполнять склонение ФИО.
Поподробнее напиши про эту библиотеку: в каком виде она есть - в сорцах, bpl-ке или в dll-ке. Для каждого варианта своя технология начального этапа подключения к ФР 3.
Ядром программы является библиотека динамической компоновки Padeg.dll с секцией экспорта:
exports
GetFIOPadeg Name 'GetFIOPadeg',
GetFIOPadegAutoSex Name 'GetFIOPadegAS',
GetFIOPadegFromStr Name 'GetFIOPadegFS',
GetFIOPadegFromStrAutoSex Name 'GetFIOPadegFSAS',
GetIFPadeg Name 'GetIFPadeg',
GetIFPadegFromStr Name 'GetIFPadegFS',
Get_FIO Name 'GetFIO',
Get_FIO_FromStr Name 'GetFIOFromStr',
Get_IF Name 'GetIF',
Get_IF_FromStr Name 'GetIFFromStr',
GetNominativePadeg Name 'GetNominativePadeg',
Get_Nominative Name 'GetNominative',
Update_Exceptions Name 'UpdateExceptions';
end.
А на прямую подключить его можно, т.е. что бы вызывать из Fast Reports? Ведь удобнее написать его в тексте, чем определять переменную с нужным склонением ...
Комментарии
exports
GetFIOPadeg Name 'GetFIOPadeg',
GetFIOPadegAutoSex Name 'GetFIOPadegAS',
GetFIOPadegFromStr Name 'GetFIOPadegFS',
GetFIOPadegFromStrAutoSex Name 'GetFIOPadegFSAS',
GetIFPadeg Name 'GetIFPadeg',
GetIFPadegFromStr Name 'GetIFPadegFS',
Get_FIO Name 'GetFIO',
Get_FIO_FromStr Name 'GetFIOFromStr',
Get_IF Name 'GetIF',
Get_IF_FromStr Name 'GetIFFromStr',
GetNominativePadeg Name 'GetNominativePadeg',
Get_Nominative Name 'GetNominative',
Update_Exceptions Name 'UpdateExceptions';
end.
interface
. . .
function GetFIOFromStr(pFIO: ShortString; cSex: Char; nPadeg:LongInt): ShortString; stdcall;
external 'padeg.dll' name 'GetFIOFromStr';
. . .
дальше в процедуре вызова отчета из программы
Variables:=QuotedStr(GetFIOFromStr(FieldByName('PAYER').AsString,#0,2));