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
