Changeset 69 for trunk/Application/UWebObjects.pas

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:

• trunk/Application/UWebObjects.pas (modified) (3 diffs)

trunk/Application/UWebObjects.pas

@@ -36 +36 @@
   end;
 
+  { TQueryFormItemList }
+
+  TQueryFormItemList = class(TListObject)
+    function FindByName(AValue: string): TQueryFormItem;
+  end;
+
   { TQueryFormGroup }
 
   TQueryFormGroup = class
     Title: string;
-    Rows: TListObject; // TListObject<TQueryFormItem>
+    Rows: TQueryFormItemList;
     procedure Load(Items: TStringList);
     function AddNewItem: TQueryFormItem;
@@ -68 +74 @@
 
 implementation
+
+{ TQueryFormItemList }
+
+function TQueryFormItemList.FindByName(AValue: string): TQueryFormItem;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TQueryFormItem(Items[I]).Value.ItemName <> AValue) do Inc(I);
+  if I < Count then Result := TQueryFormItem(Items[I])
+    else Result := nil;
+end;
 
 { TQueryFormItem }
@@ -221 +239 @@
 constructor TQueryFormGroup.Create;
 begin
-  Rows := TListObject.Create;
+  Rows := TQueryFormItemList.Create;
 end;