Wie muß man bei "OnFilterRecord" mit Platzhaltern arbeiten?

der Berliner · Beiträge: 417 Win Xp Home delphi 2005

Hallo zusammen...
Ich möchte z.B. in einer DB nach Datensätzen Filtern in denen im Namen die Buchstaben "an" vorkommen.

Folgende Routine :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TFormMain.TableSpielerFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
Accept:=Dataset['Spielername']='*an*';
end;

Table1.Filtered ist auf True gesetzt.

Jetzt wird mir aber in einem DBGrid gar kein Datenstz angezeigt.
Wenn ich den Namen auschreibe ... "Andre" dann zeigt er mir diesen Datensatz an.
Kann man bei OnFilterRecord überhaupt mit Platzhaltern arbeiten ?
Oder hab ich nen Fehler in der Schreibweise?

Vielen Dank im Vorraus
Der berliner

afk · Verfasst: Mo 30.01.06 20:19

Ich würde es mal so versuchen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TFormMain.TableSpielerFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept:=(Pos('an', Dataset['Spielername']) > 0);
end;

Gruß Axel

Moderiert von raziel: Code- durch Delphi-Tags ersetzt

der Berliner · Beiträge: 417 Win Xp Home delphi 2005

[quote="

afk"]Ich würde es mal so versuchen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TFormMain.TableSpielerFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept:=(Pos('an', Dataset['Spielername']) > 0);
end;

Danke für den Versuch...
So zeigt das DBGrid nix an
so Ähnlich hatte ichs schon..

Es sollten ja jetzt die Namen ANdre oder AlexANder gefunden werden..
Dann heisst es jetzt wohl weiter suchen und Probieren

Gruß Andre

afk · Verfasst: Di 31.01.06 01:56

Das ist seltsam, zumindest der Alexander sollte so zu finden sein, da der Pos dabei eine 6 zurückliefern müßte. Für den Andre muß das Ganze noch durch "Pos('an', LowerCase(Dataset['Spielername']))" Case-insensitive gemacht werden.

Kann es sein, das in der Eigenschaft "Filter" von dem TDataset auch noch ein Filterkriterium steht und deswegen eine leere Datenmenge geliefert wird ?

Gruß Axel

der Berliner · Beiträge: 417 Win Xp Home delphi 2005

Danke Für die Hilfe Leute.

Habe das Prob jetzt folgendermaßen gelöst (mit Hilfe :wink:

)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TFormMain.TableSpielerFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
Accept:=(Pos(AnsiUpperCase('An'), AnsiUpperCase(Dataset.FieldByName('Spielername').AsString))>0);
end;

So funzt es.

gruß Andre

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme