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;