String-Suche in einem TStringGrid

[Sharky]

Hai Alex,

meinst Du das so:

Delphi-Quellcode:

function SeekRecord(aCols: TStrings; aKey: string): integer;
begin
  Result := aCols.IndexOf(aKey);
end;

procedure TDemoForm.btn_SeekClick(Sender: TObject);
var
  foo: integer;
begin
  foo := SeekRecord(StringGrid1.Cols[1], 'blubb');
  if foo = -1 then
  begin
    StringGrid1.Row := foo;
  end
  else
  begin
    ShowMessage('Datensatz nicht gefunden');
  end;
end;