Changeset 69 for trunk/Application


Ignore:
Timestamp:
Dec 30, 2011, 6:00:53 PM (13 years ago)
Author:
chronos
Message:
  • Přidáno: Částečně zprovozněna registrace a přihlašování uživatelů.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Application/UWebObjects.pas

    r67 r69  
    3636  end;
    3737
     38  { TQueryFormItemList }
     39
     40  TQueryFormItemList = class(TListObject)
     41    function FindByName(AValue: string): TQueryFormItem;
     42  end;
     43
    3844  { TQueryFormGroup }
    3945
    4046  TQueryFormGroup = class
    4147    Title: string;
    42     Rows: TListObject; // TListObject<TQueryFormItem>
     48    Rows: TQueryFormItemList;
    4349    procedure Load(Items: TStringList);
    4450    function AddNewItem: TQueryFormItem;
     
    6874
    6975implementation
     76
     77{ TQueryFormItemList }
     78
     79function TQueryFormItemList.FindByName(AValue: string): TQueryFormItem;
     80var
     81  I: Integer;
     82begin
     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;
     87end;
    7088
    7189{ TQueryFormItem }
     
    221239constructor TQueryFormGroup.Create;
    222240begin
    223   Rows := TListObject.Create;
     241  Rows := TQueryFormItemList.Create;
    224242end;
    225243
Note: See TracChangeset for help on using the changeset viewer.