Suche nach Teilstring in einem Stringgrid

[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;