ClientDataSet in mehreren Spalten suchen

[Luki206]

Hi DP, wie kann man mit dem ClientDataSet mehrere Spalten durchsuchen sprich, beide Spalten müssen meinen Kriterien entsprechen. Ich habe auch schon gegoogled aber wahrscheinlich nach dem Falschen..
Danke
Luki

[himitsu]

Das geht, wie in jedem anderen DataSet auch, indem man mehrere Namen und Werte übergibt.

Delphi-Quellcode:

Locate('feld', wert, ...)
Locate('feld1;feld2', VarArrayOf([wert1, wert2]), ...)

[Luki206]

Oh ok, danke

PS: Ich dachte das geht in die Richtung mit Locate(Feld1 and Feld2, Wert1 and Wert2, ...

Edit: ich bekomme den Fehler

Code:

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

[Sir Rufo]

Zitat von Luki206:

Oh ok, danke

PS: Ich dachte das geht in die Richtung mit Locate(Feld1 and Feld2, Wert1 and Wert2, ...

Ja, so steht das ja auch in der Dokumentation TDataSet.Locate, oder etwa doch anders?

[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;

[Luki206]

Ok, danke. Der Fehler hat sich erübrigt, habe anscheinend nur eckige Klammern vergessen

[himitsu]

Zitat von Sir Rufo:

Ja, so steht das ja auch in der Dokumentation TDataSet.Locate, oder etwa doch anders?

Es kommt drauf an, welche Doku du davon verwendest. (z.B. die vom TBDEDataSet)


[edit] Ups. Ja, die Klammern vergessen.

[Sir Rufo]

Zitat von himitsu:

Zitat von Sir Rufo:

Ja, so steht das ja auch in der Dokumentation TDataSet.Locate, oder etwa doch anders?

Es kommt drauf an, welche Doku du davon verwendest. (z.B. die vom TBDEDataSet)

Die eine ist mit "Bildern" und die andere nur mit Beschreibung ... die Aussagen sind aber gleich.

[himitsu]

Ahhh, hab's im TDataSet.Locate gefunden ... siehe "Siehe auch"