From aaf954b7616b9d12bb655aad8a48b5fc9902c01f Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 1 Sep 2008 14:55:26 +0000
Subject: * Added a new tiListMediator demo for use with tiOPF.

---
 extras/tiopf/demos/Common/Model.pas | 21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

(limited to 'extras/tiopf/demos/Common')

diff --git a/extras/tiopf/demos/Common/Model.pas b/extras/tiopf/demos/Common/Model.pas
index 7c60f58e..8fe815cb 100644
--- a/extras/tiopf/demos/Common/Model.pas
+++ b/extras/tiopf/demos/Common/Model.pas
@@ -81,33 +81,30 @@ uses
 
 function GeneratePersonList: TPersonList;
 var
-  lList: TPersonList;
   lData: TPerson;
 begin
-  lList := TPersonList.Create;
+  Result := TPersonList.Create;
 
   lData := TPerson.Create;
   lData.Name    := 'Graeme Geldenhuys';
   lData.Age     := 23;
-  lList.Add(lData);
+  Result.Add(lData);
 
   lData := TPerson.Create;
   lData.Name    := 'Peter Hinrichsen';
   lData.Age     := 34;
-  lList.Add(lData);
+  Result.Add(lData);
 
-  lData := TPerson.Create;
-  lData.Name    := 'Ian Krigsman';
-  lData.Age     := 45;
-  lData.Deleted := True;
-  lList.Add(lData);
+  //lData := TPerson.Create;
+  //lData.Name    := 'Ian Krigsman';
+  //lData.Age     := 45;
+  //lData.Deleted := True;
+  //Result.Add(lData);
 
   lData := TPerson.Create;
   lData.Name    := 'John Guthrie';
   lData.Age     := 56;
-  lList.Add(lData);
-
-  Result := lList;
+  Result.Add(lData);
 end;
 
 
-- 
cgit v1.2.3-70-g09d2