Suchfunktion im StringGrid

[Rippo]

Hallo

Könnte mir einer bitte zeigen wie ich in meiner Suchfunktion auch nach teilen suchen kann

z.b im Feld steht hans peter und ich suche nur nach peter dass das hans peter auch markiert wird

Delphi-Quellcode:

                        //Hier wird gesucht
procedure TfrmKundenstamm.btnSuchenClick(Sender: TObject);
begin
  StringGridKunden.Repaint;
end;[DELPHI] 

              //Der gesuchte Begriff wird farblich Markiert
procedure TfrmKundenstamm.StringGridKundenDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with (Sender as TStringGrid) do
  begin
  if (ACol = 0) or (ARow = 0) then
      Canvas.Brush.Color := clBtnFace
      else
    begin
      case ACol of
        1: Canvas.Font.Color := clBlack;
        2: Canvas.Font.Color := clBLue;
      end;

      if (cells[acol, arow] = edtSuchen.Text) then
        Canvas.Brush.Color := clred
      else
        Canvas.Brush.Color := $00FFEBDF;

      Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);
      Canvas.FrameRect(Rect);

end;
end;
end;

[/DELPHI]

[Luckie]

Und wo ist jetzt deine Suchroutine, die du schon hast?

[DeddyH]

Delphi-Quellcode:

if StrUtils.AnsiContainsText(cells[acol, arow], edtSuchen.Text) then

oder evtl. auch AnsiContainsStr, wenn nach Groß- und Kleinschreibung unterschieden werden soll.

[baumina]

Delphi-Quellcode:

if AnsiPos(edtSuchen.Text, cells[acol, arow]) > 0 then
         Canvas.Brush.Color := clred
       else
         Canvas.Brush.Color := $00FFEBDF;

[Rippo]

Danke

[DP-Maintenance]

Dieses Thema wurde am "24. Apr 2015, 07:19 Uhr" von "r_kerber" aus dem Forum "Neuen Beitrag zur Code-Library hinzufügen" in das Forum "Win32/Win64 API (native code)" verschoben.