Such-Funktion gesuch

[AlexII]

Wer kann mir vllt sagen wo ich folgende Such-Funktion finden kann?

Die Funktion durchsuch eine StringGrid in Zeilen und Spalten, markiert oder färbt alle Funde oder beherrscht Weitersuche.

Hab schon viele Foren durchgesucht, aber genau so eine nicht gefunden :-(

Danke!

[Sharky]

Zitat:

Zitat von AlexII

....Hab schon viele Foren durchgesucht, aber genau so eine nicht gefunden ...

Hai AlexII,

kurz und schmerzhaft: Es gibt keine fertige Funktion dafür. Zumindest nicht als Standardfunktion des Grid.
Da musst Du schon selber etwas machen.

[AlexII]

Na das kann doch nicht sein, muss bestimmt eine geben, oder wirklich nicht? :-(

[DeddyH]

Wirklich nicht.

[p80286]

Hallo AlexII,

Zitat:

Die Funktion durchsuch eine StringGrid in Zeilen und Spalten, markiert oder färbt alle Funde oder beherrscht Weitersuche.

Ich vermute einmal, daß Du beim zweiten "oder" "und" meintest. So richtig sinnvoll scheinen mir die drei Alternativen nicht zu sein.

Trotzdem gibt es Deine Funktion nicht, da sie viel zu spezialisiert ist.

Wie wär es denn ungefähr mit folgendem:

Delphi-Quellcode:

if pos(SuchStr,SG.cells[x,y]) then färbe(SG.cells[x,y]).

Procedure Färbe müßtest Du Dir selbst zusammenbauen, aber vor ca 1 Woche lief schon einmal ein thread zu diesem Thema.

Gruß
K-H

[AlexII]

Na dann muss ich selber eine schreiben, macht mir auch wirklich Spaß, wenn man selber etwas leistet. Hab bloß noch zu wenig Stoff bzw. Bücher usw.

Falls eine schreibe, werde sie hier reinstellen. :-)

angefügt:

Zitat:

Zitat von p80286

Ich vermute einmal, daß Du beim zweiten "oder" "und" meintest. So richtig sinnvoll scheinen mir die drei Alternativen nicht zu sein.

"...färbt alle Funde oder beherrscht Weitersuche". Ist schon richtig so, wenn alle Funde bzw. Zeilen markiert sind, dann braucht man keine Weitersuche, wird aber nur eine bzw. die erst gefundene markiert, dann braucht man die Weitersuche schon.

[edit=SirThornberry]Beiträge zusammen geführt - nächstes mal bitte die Edit-Funktion verwenden - Mfg, SirThornberry[/edit]

[AlexII]

Ich bin schon soweit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s1: String;
    i,j: Integer;
begin
s1:=Edit4.Text;
with StringGrid1 do
for i:=0 to ColCount-1 do
  for j:=0 to RowCount-1 do
  if Cells[i,j]=s1 then
  begin
  StringGrid1.Row:=??????????;
  end;
end;

Stehe aber irgendwie auf dem Schlauch, kann die Zeile nicht markieren bzw. selektieren. :-(

[Sharky]

Hai AlexII,

ein TStringGrid kennt leider kein Multiselect. Wenn Du also alle Zeilen in denen der Suchbegriff vorkommt "markieren" möchtest musst Du das Zeichnen des SG selber übernehmen. (Stichwort: "OnDrawCell")

Dafür musst Du dir natürlich noch überlegen wie Du die Information "speicherst" ob eine Zelle markiert wird oder nicht.
Das könntest Du z.B. über ein Objekt machen das Du an eine Zeile des SG hängst und dort die Info speicherst.

[AlexII]

Ach so... ne dann markiere ich sie lieber nur eine. :-D

Hilfst du mir vllt auf die Sprünge die betroffene Zeile zu markieren?

Delphi-Quellcode:

StringGrid1.Row:=??????????;

[Sharky]

Zitat:

Zitat von AlexII

Ach so... ne dann markiere ich sie lieber nur eine.

Warum,

ist doch eine nette Aufgabe für das Wochenende ;-)

Zitat:

Hilfst du mir vllt auf die Sprünge die betroffene Zeile zu markieren?

Weise .Row einfach den Wert der Zeile zu in der Du den Text gefunden hast.


[EDIT]: Und weil so schönes Wetter ist klickst Du hier