Suche nach Teilstring in einem Stringgrid

[DeddyH]

Und eben deshalb sollst Du mit Pos() ermitteln, ob der Teilstring enthalten ist.

[Aphton]

String: "Der,Die,Das"
Suchstring: "Die"
Pos(Suchstring, String) = 5

Suchstring: "Was"
Pos(Suchstring, String) = 0 oder -1

[DeddyH]

Vielleicht ist es mit AnsiContainsText bzw. AnsiContainsStr einfacher.

[haentschman]

Delphi-Quellcode:

procedure TFrKundenliste.cmdSucheClick(Sender: TObject);
Var i,k : Integer;
    Suchbegriff : String;
begin
   for i:=0 to Kundenliste.colcount-1 do
   for k:=0 to Kundenliste.rowcount-1 do
   if Kundenliste.Cells[k,i]=Suchbegriff then
   begin
   // Zeile markieren
   end;
end;

...und wo definierst du den Suchbegriff ?

[Schüler]

Du hast Recht, ich hab vergessen 'Suchbegriff' zu definieren, es ist mir aber nicht aufgefallen, denn wenn ich etwas ins Edit eingebe, dann sagt er mir mit ShowMessage sogar ob dieser String vorhanden ist! Komisch!
Noch komischer ist, dass ich nachdem ich nun 'Suchbegriff' definiert hab keine korrekte Meldung über: String vorhanden(Ja/Nein), erhalte!

[silver-moon-2000]

Zitat von Schüler:

Du hast Recht, ich hab vergessen 'Suchbegriff' zu definieren, es ist mir aber nicht aufgefallen, denn wenn ich etwas ins Edit eingebe, dann sagt er mir mit ShowMessage sogar ob dieser String vorhanden ist! Komisch!
Noch komischer ist, dass ich nachdem ich nun 'Suchbegriff' definiert hab keine korrekte Meldung über: String vorhanden(Ja/Nein), erhalte!

Wir könnten jetzt versuchen, per VPN o.Ä. auf Deinen Computer zuzugreifen und eine Ferndiagnose durchzuführen, oder,
das einfachere, Du zeigst uns nochmal, was Du bisher geschrieben hast, denn so könnten wir höchstens raten, woran es liegt.

[Bummi]

Delphi-Quellcode:

Function FindInGrid(G:TStringGrid;var StartPoint:TPoint;Const Search:String;Next:Boolean):Boolean;
var
 R,C:Integer;
begin
  Result := False;
  for r := 0 to G.RowCount - 1 do
    for C := 0 to G.ColCount - 1 do
      begin
         IF Pos(Search,G.Cells[C,R]) >0 then
          if (not next) or ((r*G.ColCount + C) > ( StartPoint.y * G.ColCount + StartPoint.x )) then
              begin
                Result := True;
                StartPoint.y := r;
                StartPoint.x := c;
                EXIT;
              end;
      end;

end;
procedure TForm2.Button1Click(Sender: TObject);
var
 p:Tpoint;
 Next:Boolean;
begin
  p.X := 0;
  p.Y := 0;
  Next := False;
  while FindInGrid(StringGrid1,p,'Hallo',Next) do
    begin
      Next := True;
      Showmessage(StringGrid1.Cells[p.X,p.y] + Format(' Col: %d, Row: %d',  [p.X,p.y]))
    end;
end;