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

   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 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:
 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);