Listbox StringGrid vergleich!

[DeddyH]

Hier ist der Code, mit dem ich vergleiche (sgSearch ist meine StringGrid und lbSearch meine Listbox):

Delphi-Quellcode:

procedure TfrmMain.btnAuswahlClick(Sender: TObject);
var iIndex: Integer;
begin
  if lbSearch.ItemIndex > -1 then
    begin
      iIndex := GetRowIndex(sgSearch,lbSearch.Items[lbSearch.ItemIndex],sgSearch.FixedCols);
      if iIndex > -1 then
        sgSearch.Cells[2,iIndex] := FormatDateTime('hh:nn',Now);
    end;
end;