ClientDataSet in mehreren Spalten suchen

[himitsu]

Zitat von Luki206:

Edit: ich bekomme den Fehler

Code:

[dcc32 Fehler] haupt.pas(213): E2010 Inkompatible Typen: 'array of Variant' und 'string'

Dann machst du was falsch?
Aber ich kann jetzt nciht sagen was, da ich ja nicht weiß was du genau machst.


Es geht natürlich auch so Locate('feld1,feld2', [wert1, wert2]) , wobei hier , und ; als Trennzeichen erlaubt sind und man sich um das Array nicht selber kümmern muß.
Man kann eventuell auch noch Leerzeichen entfernen, womit dann auch 'feld1, feld2' ginge, falls man eine bessere Tennung mag.

Delphi-Quellcode:

type
  TDataSetHelper = class helper for TDataSet
    function Locate(const KeyFields: string; const KeyValues: Variant): Boolean; overload;
    function Locate(const KeyFields: string; const KeyValues: array of Variant; Options: TLocateOptions=[]): Boolean; overload;
    function Lookup(const KeyFields: string; const KeyValues: array of Variant; const ResultFields: string): Variant; overload;
  end;

function TDataSetHelper.Locate(const KeyFields: string; const KeyValues: Variant): Boolean;
begin
  Result := Locate(KeyFields, KeyValues, []);
end;

function TDataSetHelper.Locate(const KeyFields: string; const KeyValues: array of Variant; Options: TLocateOptions): Boolean;
begin
  Result := Locate(ReplaceStr(KeyFields, ',', ';'), VarArrayOf(KeyValues), Options);
end;

function TDataSetHelper.Lookup(const KeyFields: string; const KeyValues: array of Variant; const ResultFields: string): Variant;
begin
  Result := Lookup(ReplaceStr(KeyFields, ',', ';'), VarArrayOf(KeyValues), ResultFields);
end;