Changeset 24 for trunk/UDatabase.pas

Timestamp:

Mar 26, 2018, 11:37:46 PM (7 years ago)

Author:

chronos

Message:

• Modified: Improved handling of SQL commands by XML backend.

File:

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

trunk/UDatabase.pas

@@ -85 +85 @@
     Parent: TTable;
     Values: TValues;
+    function Match(AValues: TStrings): Boolean;
     procedure InitValues;
     procedure Assign(Source: TRecord);
@@ -97 +98 @@
     procedure Assign(Source: TRecords);
     function SearchByValue(Name, Value: string): TRecord;
+    function SearchByValues(Values: TStrings): TRecord;
     function AddNew: TRecord;
   end;
@@ -257 +259 @@
   STypeDateTime = 'Date and time';
   STypeReference = 'Reference';
+  SFieldNotFound = 'Field %s not found';
 
 
@@ -607 +610 @@
 end;
 
+function TRecords.SearchByValues(Values: TStrings): TRecord;
+var
+  I: Integer;
+begin
+  Result := nil;
+  I := 0;
+  while (I < Count) and (TRecord(Items[I]).Match(Values)) do Inc(I);
+  if I < Count then Result := TRecord(Items[I])
+    else Result := nil;
+end;
+
 function TRecords.AddNew: TRecord;
 begin
@@ -651 +665 @@
 
 { TRecord }
+
+function TRecord.Match(AValues: TStrings): Boolean;
+var
+  I: Integer;
+  Field: TField;
+  FieldIndex: Integer;
+begin
+  Result := True;
+  for I := 0 to aValues.Count - 1 do begin
+    Field := Parent.Fields.SearchByName(AValues.Names[I]);
+    FieldIndex := Parent.Fields.IndexOf(Field);
+    if Assigned(Field) then begin
+      if TValue(Values[FieldIndex]).GetString <> AValues.ValueFromIndex[I] then begin
+        Result := False;
+        Break;
+      end;
+    end else raise Exception.Create(Format(SFieldNotFound, [AValues.Names[I]]));
+  end;
+end;
 
 procedure TRecord.InitValues;