Suchergebnis in StringGrid schreiben

[Pepsen]

Hallo erstmal...

also bin ein ziemlicher Delphi-Neuling und habe mal eine kleine "Adressdatenbank" mit TTable Paradox7 erstellt und kann diese auch in einem StringGrid ausgeben. Nun wollte ich eine Art Suchfunktion mit einbauen. Hab dies mit

Delphi-Quellcode:

Table1.Locate('name', suche, [loCaseInsensitive, loPartialKey ]);

angefangen. Hab dann jetzt aber das Problem, dass ich nicht weiß, wie ich mein Suchergebnis und wirklich nur dieses ins StringGrid schreiben kann!

Ist es außerdem überhaupt möglich mit Locate z.B. nach allen Namen, die mit "A" beginnen zu suchen und diese auszugeben?

MfG Pepsen

[uwewo]

Setze eine Filter auf die Tabelle

Delphi-Quellcode:

   Table1.Filter = Name Like A%;

[Pepsen]

so wirklich weitergeholfen hat mir das jetzt nicht...vorallem beantwortet es nicht meine Frage, wie ich das Ergebnis dann ins StringGrid bekomme.

[mkinzler]

Warum nimmst du ein StringGrid? Bei einer Datenbank würde sich ein DBGrid doch eher anbieten?

[Pepsen]

Zitat:

Zitat von mkinzler

Warum nimmst du ein StringGrid? Bei einer Datenbank würde sich ein DBGrid doch eher anbieten?

weil es die Aufgabenstellung so vorgibt =D

[mkinzler]

Die Anzahl der Spalten und Zeilen gibst du mit .ColCount und .RowCount an. Dann kannst du über .Cells auf die Zellen zugreifen

[Pepsen]

ah, wunderbar...das funktioniert schonmal...nur hab ich noch ein kleines Problem! Und zwar hab ich es jetzt so, dass ich den Suchbegriff in ein Edit-Feld eingebe und danach filtern lasse! Es wird mir aber nur ein Datensatz ausgegeben, wenn er VOLLKOMMEN identisch mit dem Suchbegriff ist! Hätte es aber schon ganz gern so, dass ich alle Namen, die mit "B" anfangen zu sehen bekomm, wenn ich nur "B" ins Edit-Feld eingebe...
mein Befehl sieht so aus:

Delphi-Quellcode:

 Table1.Filter := 'name = ' + QuotedStr(Edit1.Text);

[mkinzler]

Schau mal in #2

[Pepsen]

hab ich ausprobiert...funktioniert allerdings nicht
es wird mir der Fehler: Operator oder Simikolon fehlt angezeigt!

[mkinzler]

Das awr auch nicht die Musterlösung, sondern nur ein Hinweis:

Table1.Filter := 'name like ' + QuotedStr('%'+Edit1.Text);

[Pepsen]

ich danke euch!
Lösung war auch scho viel früher vorhanden aber ich hatte noch einen ganz anderen Fehler drin :wall:
und zwar war "foNoPartialCompare" auf TRUE!

außerdem muss man anstatt '%' ein '*' benutzen...

endgültige Lösung:

Delphi-Quellcode:

Table1.Filter := 'vorname=' + QuotedStr(EditSuche.Text+'*');