Changeset 22 for trunk/UDatabase.pas

Timestamp:

Mar 24, 2018, 12:33:48 AM (7 years ago)

Author:

chronos

Message:

• Modified: Tables creation/deletion using SQL syntax for XML backend.

File:

• trunk/UDatabase.pas (modified) (6 diffs)

trunk/UDatabase.pas

@@ -75 +75 @@
   TFields = class(TObjectList)
     Table: TTable;
-    function FindByName(Name: string): TField;
+    function SearchByName(Name: string): TField;
     procedure Assign(Source: TFields);
   end;
@@ -84 +84 @@
     Parent: TTable;
     Values: TValues;
+    procedure InitValues;
     procedure Assign(Source: TRecord);
     constructor Create;
@@ -94 +95 @@
     Parent: TTable;
     procedure Assign(Source: TRecords);
+    function SearchByValue(Name, Value: string): TRecord;
   end;
 
@@ -175 +177 @@
     function SearchByName(Name: string): TDataType;
   end;
+
+  TDbRows = USqlDatabase.TDbRows;
 
   { TDbClient }
@@ -577 +581 @@
 end;
 
+function TRecords.SearchByValue(Name, Value: string): TRecord;
+var
+  I: Integer;
+  FieldIndex: Integer;
+  Field: TField;
+begin
+  Result := nil;
+  Field := Parent.Fields.SearchByName(Name);
+  if Assigned(Field) then begin
+    FieldIndex := Parent.Fields.IndexOf(Field);
+    I := 0;
+    while (I < Count) and (TValue(TRecord(Items[I]).Values[FieldIndex]).GetString <> Value) do Inc(I);
+    if I < Count then Result := TRecord(Items[I])
+      else Result := nil;
+  end;
+end;
+
 { TFields }
 
-function TFields.FindByName(Name: string): TField;
+function TFields.SearchByName(Name: string): TField;
 var
   I: Integer;
@@ -604 +625 @@
 
 { TRecord }
+
+procedure TRecord.InitValues;
+var
+  I: Integer;
+begin
+  Values.Clear;
+  for I := 0 to Parent.Fields.Count - 1 do
+    Values.Add(TField(Parent.Fields[I]).GetValueClass.Create);
+end;
 
 procedure TRecord.Assign(Source: TRecord);