TIdVCardName

type TIdVCardName = class(TPersistent)

protected

  FFirstName: string;

  FSurName: string;

  FOtherNames: TStrings;

  FPrefix: string;

  FSuffix: string;

  FFormattedName: string;

  FSortName: string;

  FNickNames: TStrings;

  procedure SetOtherNames();

  procedure SetNickNames();

public

  constructor Create;

  destructor Destroy; override;

published

  property FirstName: string; [rw]

  property SurName: string; [rw]

  property OtherNames: TStrings; [rw]

  property FormattedName: string; [rw]

  property Prefix: string; [rw]

  property Suffix: string; [rw]

  property SortName: string; [rw]

  property NickNames: TStrings; [rw]

end;

TIdVCardName

TObject