Suche erweitern - bitte um Ergänzung.

[AlexII]

Hallo Leute!

Hab folgenden Code für ne Suche geschrieben, klappt wunderbar, kann allerdings nicht "Weitersuchen"

Wer kann mir helfen, dem Code noch die Weitersuche beizubringen? Hab jetzt keine Idee wie es gehen soll. Weiß muss mir merken wo stehen geblieben bin, aber wie das zu realisieren ist, keine Ahnung.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s1: String;
    i,j,u: Integer;
begin
s1:=Edit4.Text;
u:=Length(s1);
    if u>=2 then
    begin
          with StringGrid1 do
          for i:=0 to ColCount-2 do
              for j:=1 to RowCount-1 do
              if Copy((Cells[i,j]),1,u)=s1 then
              begin
              Edit4.Color:=clWindow;
              StringGrid1.Selection:=TGridRect(Rect(i,j,i,j));
              Exit;
              end else
                  begin
                  Edit4.Color:=clYellow;
                  Edit4.SetFocus;
                  end;
    end else
        begin
        Edit4.Color:=clYellow;
        Edit4.SetFocus;
        end;
end;

[edit=SirThornberry]Rechtschreibfehler im Titel beseitigt - Mfg, SirThornberry[/edit]

[sx2008]

Schreib dir doch ne eigene Klasse für deine Suche.
Überleg dir, welche Daten der Klasse bekannt sein müssen (das Stringgrid, Suchtext, letztr Spalte und Zeile, Zähler für Anzahl Treffer, ..)

[s-off]

Hallo,

'ne lustige Code-Formatierung hast Du :lol:

Als erstes solltest Du das 'Exit' in ein 'Break' ändern. Ansonten wunderst Du Dich nämlich irgendwann, wenn Du nach der Schleife noch Code angefügt hast, der dann nicht mehr ausgeführt wird.

Des weiteren solltest Du den Code in eine Methode auslagern, der Du als Parameter die Startkoordinaten übergibst, und als Rückgabewert ggf. die Koordinaten der letzten gefundenen Position.

Zum Suchen rufst dann die Methode mit den Anfangskoordinaten auf, und speicherst den Rückgabewert (die letzte Fundstelle) in einem Feld Deiner Klasse.

Beim Weitersuchen übergibst Du dann als Anfangskoordinaten die zuvor gespeicherten; fertig.

[AlexII]

Zitat:

Zitat von s-off

'ne lustige Code-Formatierung hast Du :lol:

Ja man darf nicht vergessen, hatte nur ca. 30 Stunden Delphi in meinem Leben. :lol:

Zitat:

Zitat von s-off

Als erstes solltest Du das 'Exit' in ein 'Break' ändern. Ansonten wunderst Du Dich nämlich irgendwann, wenn Du nach der Schleife noch Code angefügt hast, der dann nicht mehr ausgeführt wird.

Ich hatte erst mal Break gehabt, musste aber durch Exit ersetzen, da bei keinem Treffer Edit4.Text gelb bleibt.

Zitat:

Zitat von s-off

Des weiteren solltest Du den Code in eine Methode auslagern, der Du als Parameter die Startkoordinaten übergibst, und als Rückgabewert ggf. die Koordinaten der letzten gefundenen Position.

Zum Suchen rufst dann die Methode mit den Anfangskoordinaten auf, und speicherst den Rückgabewert (die letzte Fundstelle) in einem Feld Deiner Klasse.

Beim Weitersuchen übergibst Du dann als Anfangskoordinaten die zuvor gespeicherten; fertig.

Booooohhhh..... ist noch Fachchinesisch für mich. :cry:

[AlexII]

Zitat:

Zitat von sx2008

Schreib dir doch ne eigene Klasse für deine Suche.
Überleg dir, welche Daten der Klasse bekannt sein müssen (das Stringgrid, Suchtext, letztr Spalte und Zeile, Zähler für Anzahl Treffer, ..)

Hab leider von Klassen noch keine Ahnung. :?

[mkinzler]

Außerdem wäre hier besser Pos() zu verwenden, statt Teilstrings zu extrahieren und diese mit dem Suchstring zu vergleichen , dann könntest du mit PosEx() weitersuchen

[s-off]

Zitat:

Zitat von AlexII

Zitat:

Zitat von s-off

'ne lustige Code-Formatierung hast Du :lol:

Ja man darf nicht vergessen, hatte nur ca. 30 Stunden Delphi in meinem Leben. :lol:

Das sollte keine Kritik sein. Es ist, gerade am Anfang, wichtig, dass Du Deinen Code lesen kannst.
Ich finde nur, dass die Einrücken lustig aussiehst. Wenn Du damit klarkommst, ist das vollkommen ok ;)
Wenn Du dann später etwas routinierter bist, kannst Du Dir ja mal irgendwelche StyleGuides zur Hand nehmen, und schauen, ob Du damit auch klarkommst.
Auf der anderen Seite wäre es vielleicht auch nicht schlecht, sich von Anfang an einen 'allgemein anerkannten' Style anzugewöhnen.
Hmm, jetzt bin ich verwirrt :?

Zitat:

Zitat von AlexII

Zitat:

Zitat von s-off

Als erstes solltest Du das 'Exit' in ein 'Break' ändern. Ansonten wunderst Du Dich nämlich irgendwann, wenn Du nach der Schleife noch Code angefügt hast, der dann nicht mehr ausgeführt wird.

Ich hatte erst mal Break gehabt, musste aber durch Exit ersetzen, da bei keinem Treffer Edit4.Text gelb bleibt.

Dann solltest Du Deinen Code diesbezüglich nochmal überarbeiten!
Mit Kompromisslösungen gibt man sich nicht zufrieden, wenn es keine andere Lösung gibt. Denk nochmal darüber nach - ein Stichwort wäre bspw. 'Flag' ;)

Zitat:

Zitat von AlexII

Zitat:

Zitat von s-off

Des weiteren solltest Du den Code in eine Methode auslagern, der Du als Parameter die Startkoordinaten übergibst, und als Rückgabewert ggf. die Koordinaten der letzten gefundenen Position.

Zum Suchen rufst dann die Methode mit den Anfangskoordinaten auf, und speicherst den Rückgabewert (die letzte Fundstelle) in einem Feld Deiner Klasse.

Beim Weitersuchen übergibst Du dann als Anfangskoordinaten die zuvor gespeicherten; fertig.

Booooohhhh..... ist noch Fachchinesisch für mich. :cry:

Hört sich schlimmer an, als es ist. Schau Dir den Unterschied von procedure und function an.

[AlexII]

Zitat:

Zitat von s-off

Mit Kompromisslösungen gibt man sich nicht zufrieden, wenn es keine andere Lösung gibt. Denk nochmal darüber nach - ein Stichwort wäre bspw. 'Flag' ;)

Zufrieden bin ich nocht nicht, es fehlt ja noch die Weitersuche. Der Code wird ja noch verändert und danach werde ich versuchen das Ganze zu optimieren. :thumb:

[marabu]

Hallo Alex,

dein Problem wird auch in diesem Thread behandelt: String-Suche in einem TStringGrid

Grüße vom marabu

[AlexII]

Bei mir wird die entsprechende Zelle markiert, wie kann ich sie aber färben, denn ich bin ja nicht in dem Ereignis OnDrawCell? Wie übergebe ich die Variablen i und j nach OnDrawCell um dort, wie schon gesagt, die Zelle zu färben?

Delphi-Quellcode:

if Copy((Cells[i,j]),1,u)=s1 then
   begin
   Edit4.Color:=clWindow;
   StringGrid1.Selection:=TGridRect(Rect(i,j,i,j));
   Exit;
   end;

[marabu]

Hi,

nicht du rufst die Zeichenroutine einer Zelle auf - das geschieht völlig automatisch. Wie du es indirekt doch hinbekommst, das steht in diesem Thread: Zur Laufzeit Bild in einem StringGrid ändern

Noch zwei kleine Tips: Um eine bestimmte Zelle zu markieren musst du nicht mit der Eigenschaft Selection arbeiten, du kannst auch einfach die Eigenschaften Col und Row des StringGrid setzen. Und für deinen Stringvergleich kannst du auch auf die beiden Funktionen AnsiStartsStr() bzw. AnsiStartsText() aus der Unit StrUtils zurückgreifen, wenn du eine Präfixsuche benötigst.

Freundliche Grüße

[mkinzler]

CrossPost in der DF

[AlexII]

Zitat:

Zitat von mkinzler

CrossPost in der DF

Was hat das damit zutun? Ist doch ganz andere Webseite bzw. Forum.

[mkinzler]

Dann solltest du mal die Benutzungsbedingungen der Foren durchlesen. Man sollte auf die gleichzeitige Einstellung der Frage in anderen Foren hinweisen, so dass der Helfer sdehern kann, was andere darauf schon geantwortet haben.

[AlexII]

Zitat:

Zitat von mkinzler

Dann solltest du mal die Benutzungsbedingungen der Foren durchlesen. Man sollte auf die gleichzeitige Einstellung der Frage in anderen Foren hinweisen, so dass der Helfer sdehern kann, was andere darauf schon geantwortet haben.

Hab aber nicht dieses Thema noch wo anders erstellt oder die gleiche Frage, sondern ein Teil aus diesem Thema zu einem neuen Thema gemacht.

Na gut, werd es in der Zukunft meiden.