Diff | Source/SVN

Download diff

     property FirstName: string read FFirstName write SetFirstName;
     property MiddleName: string read FMiddleName write SetMiddleName;
     property LastName: string read FLastName write SetLastName;
+    class function FormatName(
+      const lastName: string;
+      const firstName: string;
+      const middleName: string;
+      const nickName: string = ''
+    ): string; static;
   end;
   TBookRecord = record
     Authors: array of TAuthorRecord;
     Genres: array of TGenreRecord;
-    RootGenre: string;
+    RootGenre: TGenreRecord;
     Code: Integer;
     Size: Integer;
 { TAuthorRecord }
-function TAuthorRecord.GetFullName: string;
+class function TAuthorRecord.FormatName(
+  const lastName: string;
+  const firstName: string;
+  const middleName: string;
+  const nickName: string = ''): string;
 begin
-  Assert(LastName <> '');
+  Result := lastName;
-  Result := LastName;
+  if firstName <> '' then
+    Result := Result + ' ' + firstName;
-  if FirstName <> '' then
+  if middleName <> '' then
-    Result := Result + ' ' + FirstName;
+    Result := Result + ' ' + middleName;
-  if MiddleName <> '' then
+  if nickName <> '' then
-    Result := Result + ' ' + MiddleName;
+  begin
+    if Result = '' then
+      Result := nickName
+    else
+      Result := Result +  '(' + nickName + ')';
+  end;
 end;
+function TAuthorRecord.GetFullName: string;
+begin
+  Assert(LastName <> '');
+  Result := FormatName(LastName, FirstName, MiddleName);
+end;
 procedure TAuthorRecord.SetFirstName(const Value: string);
 begin
   FFirstName := Trim(Value);

MyHomeLib

root/trunk/Units/unit_Globals.pas