Changeset 69 for trunk/Application
- Timestamp:
- Dec 30, 2011, 6:00:53 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Application/UWebObjects.pas
r67 r69 36 36 end; 37 37 38 { TQueryFormItemList } 39 40 TQueryFormItemList = class(TListObject) 41 function FindByName(AValue: string): TQueryFormItem; 42 end; 43 38 44 { TQueryFormGroup } 39 45 40 46 TQueryFormGroup = class 41 47 Title: string; 42 Rows: T ListObject; // TListObject<TQueryFormItem>48 Rows: TQueryFormItemList; 43 49 procedure Load(Items: TStringList); 44 50 function AddNewItem: TQueryFormItem; … … 68 74 69 75 implementation 76 77 { TQueryFormItemList } 78 79 function TQueryFormItemList.FindByName(AValue: string): TQueryFormItem; 80 var 81 I: Integer; 82 begin 83 I := 0; 84 while (I < Count) and (TQueryFormItem(Items[I]).Value.ItemName <> AValue) do Inc(I); 85 if I < Count then Result := TQueryFormItem(Items[I]) 86 else Result := nil; 87 end; 70 88 71 89 { TQueryFormItem } … … 221 239 constructor TQueryFormGroup.Create; 222 240 begin 223 Rows := T ListObject.Create;241 Rows := TQueryFormItemList.Create; 224 242 end; 225 243
Note:
See TracChangeset
for help on using the changeset viewer.