Changeset 130 for trunk/UCity.pas
- Timestamp:
- May 1, 2023, 4:02:31 PM (13 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UCity.pas
r110 r130 28 28 29 29 TCities = class(TObjectList<TCity>) 30 function SearchBySysName(SysName: string): TCity; 30 31 function AddNew(SysName, Name: string; Population: Integer): TCity; 31 32 procedure LoadFromRegistry(Context: TRegistryContext); … … 81 82 { TCities } 82 83 84 function TCities.SearchBySysName(SysName: string): TCity; 85 var 86 I: Integer; 87 begin 88 I := 0; 89 while (I < Count) and (Items[I].SysName <> SysName) do Inc(I); 90 if I < Count then Result := Items[I] 91 else Result := nil; 92 end; 93 83 94 function TCities.AddNew(SysName, Name: string; Population: Integer): TCity; 84 95 begin
Note:
See TracChangeset
for help on using the changeset viewer.