Delphi-PRAXiS - Delphi Tabelle mit Filterfunktion

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Tabelle mit Filterfunktion (https://www.delphipraxis.net/146687-tabelle-mit-filterfunktion.html)

Tabelle mit Filterfunktion

hallo,
ich habe mal wieder ein kleines Problem.. Zu meiner Umgebung - ich nutze Delphi 7 und als DB die BDE.

Nun zu meinem Problem. Ich möchte aus einer Tabelle einen Wert auslesesn (String) und mit diesem String einen Filter auf eine 2te Tabelle setzen. Zum Testen habe ich mal ein DBGrid erzeugt. Gebe ich den Wert manuell vor - z.Bsp eine 1 - dann funktioniert es. Sobald ich aber statt dem tatsächlichen Wert eine Variable angebe, stürzt das Programm ab???

Delphi-Quellcode:

			procedure TForm1.Table1BeforeOpen(DataSet: TDataSet);

begin

table2.Open;

table2.First;

v_tierid := table2.fieldbyname('idartadress').AsString;

label5.Caption:=v_tierid;

//Table1.Filter := 'C_tierid = ''v_tierid'''; --> wenn aktiv - Fehlermeldung und Abbruch

Table1.Filter := 'C_tierid = ''1'''; --> funktioniert

end;

Hat vielleicht jemand einen Tip, was ich falsch mache? ich ahbe schon ziemlich alle Hochkommata Stellungen durch.
Vielen Dank schon einmal im voraus
Viele Grüße
Andreas

Re: Tabelle mit Filterfunktion

Delphi-Quellcode:

Table1.Filter := 'C_tierid = ' + QuotedStr(v_tierid.asString);

Re: Tabelle mit Filterfunktion

Super - aber rein Interess halber, warum ging das nicht mit den Hochkommatas???

vielen lieben Dank für die super schnelle Antwort..

Viele Grüße
Andreas

Re: Tabelle mit Filterfunktion

Die + haben dann gefehlt und die Anzahl der ' war falsch

Delphi-Quellcode:

Table1.Filter := 'C_tierid = ''' + v_tierid.asString + ''';

uotedStr ist aber imho übersichtlicher