Suchalgorithmus

[Tpercon]

Hier mal die Umsetzung als while Schleife (nicht getestet).

Delphi-Quellcode:

x := 0;
while x <= 16 do begin
  if adressbuch.cells[x,i] = FindDialog1.FindText then  begin
    adressbuch.Row := i;
    inc(x);
  end;
  inc(x);
end;

Gruß