Stringgrid nach einem Begriff durchsuchen und....

[capo]

Hallo
Wie kann ich in einem Stringgrid nach einem Begriff suchen und mir alle gefundenen Zeilen in einem neuen Stringgrid anzeigen lassen?
Wäre soooo irre toll wenn mir jemadn dabei helfen kann.
Gruss vom capo

[mkinzler]

Suchst du ne ganze zeile oder ein Teil?
wenn du nach einer ganzen zeile suchst, kabbst du dir mal .IndexOf ansehen

[capo]

Hi
ich suche nach einem Begriff in einer ganzen Zeile.
Es soll ein Adressprogramm werden und ich will halt alles Zeilen in denen der Begriff vorkommt in einem neuen Stringgrid anzeigen lassen.

[capo]

ich komme damit nicht weiter, hat jemand ein Beispielcode für mich?
capo

[capo]

Hallo
ich hab da was gefunden, allerdings weiss ich nicht wie ich alle Ergebnisse in ein anderes Stringgrid bekomme:

Delphi-Quellcode:

procedure TForm1.Button.Click(Sender: TObject);
var
  res: TPoint;
  finddlg: TFinddlg;
  findparams: TFindparams;

begin


  FindDlg := TFindDlg.Create(self);
  try
    if (finddlg.Showmodal = mrOk) then
    begin
      findparams := [];

      if finddlg.Chkcase.Checked then findparams := findparams + [fnMatchCase];
      if finddlg.Chkfull.Checked then findparams := findparams + [fnMatchFull];
      if finddlg.Chkregular.Checked then findparams := findparams + [fnMatchRegular];
      if finddlg.dir.itemindex = 1 then findparams := findparams + [fnDirectionLeftRight];
      if finddlg.where.itemindex = 1 then findparams := findparams + [fnFindInCurrentCol];
      if finddlg.where.itemindex = 2 then findparams := findparams + [fnFindInCurrentRow];
      res := StringGrid1.findfirst(finddlg.findtext.text, findparams);
      if res.x >= 0 then
      begin
        StringGrid1.Col := res.x;
        StringGrid1.row := res.y;
           end
      else
        MessageDlg('Text not found', mtinformation, [mbOK], 0);
    end;
  finally
    FindDlg.free;
  end;
end;

[Hobby-Programmierer]

Nabend ..,

Zitat von capo:

Delphi-Quellcode:

...
  res := StringGrid1.findfirst(finddlg.findtext.text, findparams);
  if res.x >= 0 then begin
    StringGrid1.Col := res.x;
    StringGrid1.row := res.y;
    // hier ins neue Stringgrid schreiben zb.
    // StringGrid_neu.Rows[XX]:= StringGrid1.Rows[res.y];
   end else
    MessageDlg('Text not found', mtinformation, [mbOK], 0);
  end;

LG Mario

[capo]

Hallo, danke
das klappt bei einem gefundenen Eintrag gut.
StringGrid2.Rows[0]:= StringGrid1.Rows[res.y]; Um weiter zu suchen verwende ich folgendes:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  res:tpoint;
begin
  res:=StringGrid1.findnext;
  if (res.x>=0) and (res.y>=0) then
  begin
    StringGrid1.Col:=res.x;
   StringGrid1.row:=res.y;
    // StringGrid2.Rows[0]:= StringGrid1.Rows[res.y];
  end
  else
    MessageDlg('Text not found',mtinformation,[mbOK],0);
end;

Er schreibt ja so immer alles in
 StringGrid2.Rows[0] rein, er soll ja soviele neue Zeilen hinzufügen wie Ergebnisse vorhanden.
Magst du nochmal nachschauen?

Gruss capo

[capo]

Hallo
mit dem code unten bekomme ich alle Suchergebnisse angezeigt, allerdings werden die viel zu oft angezeigt (ca 4-5x oder mehr), ich mach irgendetwas falsch.
Ich denke es hat was mit dem
StringGrid2.Rows[i] := StringGrid1.Rows[res.y]; zu tun
nur weiß ich nicht wie ich das ändern muss.
Grüsse capo

Delphi-Quellcode:

      res := StringGrid1.findfirst(finddlg.findtext.text, findparams);
       if res.x >= 0 then
       begin
         with StringGrid1 do begin
      for i := 1 to RowCount - 1 do // Alle Zeilen durchlaufen
      begin
        for j := 1 to ColCount - 1 do // Alle Spalten durchlaufen
        res := StringGrid1.findnext;
        if (res.x >= 0) and (res.y >= 0) then
       
        begin

        StringGrid1.Col := res.x;
        StringGrid1.row := res.y;

        Stringgrid2.RowCount := Stringgrid2.RowCount + 1;
        StringGrid2.Row := Stringgrid2.RowCount - 1;

          StringGrid2.Rows[i] := StringGrid1.Rows[res.y];

       end;
       end;  
       end;
      end
      else
        MessageDlg('Text not found', mtinformation, [mbOK], 0);
     end;
  finally
    FindDlg.free;
  end;
end;

[Hobby-Programmierer]

Moin ...
vielleicht so

Delphi-Quellcode:

...
  StringGrid_neu.RowCount:= 1; 
  res := StringGrid1.findfirst(finddlg.findtext.text, findparams);
  if res.x >= 0 then begin
    StringGrid1.Col := res.x;
    StringGrid1.row := res.y;
    // hier ins neue Stringgrid schreiben zb.
    StringGrid_neu.Rows[StringGrid_neu.RowCount]:= StringGrid1.Rows[res.y];
    StringGrid_neu.RowCount:= StringGrid_neu.RowCount +1; // Zeile um 1 erhöhen
   end else
    MessageDlg('Text not found', mtinformation, [mbOK], 0);
  end;

Ungetestet aber sollte so funktionieren!
LG Mario

[Hansa]

Für mich sieht das alles irgendwie unnötig komplizierter aus, als es IMHO ist. Wieso reicht so was nicht ?

Delphi-Quellcode:

for i := 1 to Stringgrid1.RowCount do begin
  if gefunden then begin
    Stringgrid2.Rows [j] := Stringgrid1.Rows[i];
    j := j + 1;
    Stringgrid2.Rowcount := Stringgrid2.Rowcount;
  end;
end;

Das i läuft dabei durch alle Stringgrid-Zeilen und das j wird nach Bedarf (wenn die Funktion gefunden true ergibt) erhöht.