Add files via upload

silvercoder70 · web-flow · commit e832abff4752 · 2024-08-06T19:38:02.000+10:00
diff --git a/example6.lpr b/example6.lpr
@@ -0,0 +1,40 @@
+program example6;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  Classes, SysUtils, CustApp
+  { you can add units after this }
+  , fgl, uPerson;
+
+type
+  TPersonList = specialize TFPGList<TPerson>;
+
+var
+  LPersonList: TPersonList;
+  LPersonInterator: specialize TFPGListEnumerator<TPerson>;
+  LPerson: TPerson;
+
+begin
+  LPersonList := TPersonList.Create;
+  LPersonList.Add(TPerson.Create('Malcolm', 30));
+  LPersonList.Add(TPerson.Create('Bob', 19));
+  LPersonList.Add(TPerson.Create('Alice', 30));
+  LPersonList.Add(TPerson.Create('Charlie', 30));
+
+  LPersonList.Sort(@ComparePerson);
+
+  LPersonInterator := LPersonList.GetEnumerator;
+  while LPersonInterator.MoveNext do
+  begin
+    LPerson := LPersonInterator.Current;
+    Writeln('Person Name: ', LPerson.Name_, ', Age: ', LPerson.Age);
+  end;
+
+  LPersonList.Free;
+  Readln;
+end.
+
diff --git a/uperson.pas b/uperson.pas
@@ -0,0 +1,55 @@
+unit uPerson;
+
+{$mode ObjFPC}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+  { TPerson }
+
+  TPerson = class
+  private
+    FAge: integer;
+    FName_: string;
+    procedure SetAge(AValue: integer);
+    procedure SetName_(AValue: string);
+  public
+    constructor Create(AName: string; AAge: integer);
+    property Name_: string read FName_ write SetName_;
+    property Age: integer read FAge write SetAge;
+  end;
+
+function ComparePerson(const Item1, Item2: TPerson): Integer;
+
+implementation
+
+{ TPerson }
+
+function ComparePerson(const Item1, Item2: TPerson): Integer;
+begin
+  Result := AnsiCompareStr(Item1.Name_,Item2.Name_);
+end;
+
+procedure TPerson.SetAge(AValue: integer);
+begin
+  if FAge=AValue then Exit;
+  FAge:=AValue;
+end;
+
+procedure TPerson.SetName_(AValue: string);
+begin
+  if FName_=AValue then Exit;
+  FName_:=AValue;
+end;
+
+constructor TPerson.Create(AName: string; AAge: integer);
+begin
+  FName_:= AName;
+  FAge:=AAge;
+end;
+
+end.
+
