Rp FR4Functions.TFR4Functions.GetNameInitials

Версия 21:53, 11 февраля 2011

From rp FR4Functions.pas

 function GetNameInitials(AFamilyName, AGivenName, AMiddleName: String; const ALeading: Boolean; const ASpace: String): String;

Unit: rp FR4Functions

Type: function

Visibility: private

Member Of: TFR4Functions

Описание

Возвращает строку вида "Фамилия И.О." или "И.О. Фамилия". Возможны два варианта использования. В первом случае фамилия, имя и отчество передаются раздельно через три строковых параметра AFamilyName, AGivenName и AMiddleName, соответственно. Во втором -- строка вида "Фамилия Имя Отчество" передается в первом параметре функции. AGivenName и AMiddleName не используются.

Булевский параметр ALeading определяет местоположение инициалов относительно фамилии.

Параметр ASpace задает разделитель (как правило, пробел или пустая строка) между сокращениями имени и отчества.

Функция способна переставить инициалы в уже сформированной строке с сокращениями, в соответствии с заданным параметром ALeading. Исходная строка передается в первом параметре функции.

Отчество может быть пропущено. В этом случае в параметр AMiddleName передается пустая строка.

Примеры использования

  GetNameInitials('Каліноўскі', 'Кастусь', 'Сямёнавіч', True, '') => 'К.С. Каліноўскі'
  GetNameInitials('Каліноўскі', 'Кастусь', 'Сямёнавіч', False, ' ') => 'Каліноўскі К. С.'
  GetNameInitials('Каліноўскі Кастусь Сямёнавіч', '', '', False, '') => 'Каліноўскі К.С.'
  GetNameInitials('Каліноўскі К.С.', '', '', True, '') => 'К.С. Каліноўскі'