String-Suche in einem TStringGrid

[Thanatos81]

Wenn du i und j schon für row und col brauchst und nicht nur nach einem String sucht brauchst du noch einen weiteren Zähler:

Delphi-Quellcode:

procedure GridSuche(Grid: TStringGrid; StrList: array of String; var AList: TStringList);
var
  I, row, col : Integer;
begin
  AList.Clear;
  AList.Duplicates := dupIgnore;
  for row := 1 to Grid.RowCount - 1 do
  begin
    for col := 1 to Grid.ColCount - 1 do
    begin
      for  i := low(StrList) to high(StrList) do
      begin
        if (Grid.Cells[col,row] = StrList[i]) 
          then AList.Add(IntToStr(row));
      end;  
    end;
  end;
end;

Sehr perfomant wird das ganze aber nicht sein. Da du nur die Zeile speicherst denke ich mal, dass die Spalte bekannt ist, oder? Wenn ja, durchsuche nur diese Spate, das spart ne ganze Zeit, da der obige Algo sonst sehr langsam ist. Achja, deine Funktion würde übrigens immer false zurückgeben, deswegen hab ich mal ne Prozedur draus gemacht