diff options
Diffstat (limited to 'extras/tiopf/demos/Common')
-rw-r--r-- | extras/tiopf/demos/Common/Model.pas | 21 |
1 files changed, 9 insertions, 12 deletions
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; |