Listbox StringGrid vergleich!

[DeddyH]

Vergiss das Letzte, das war Blödsinn. Ich habe die Funktion mal etwas aufgebohrt:

Delphi-Quellcode:

uses StrUtils;

function GetRowIndex(const Grid: TStringGrid;
                     const Txt2Find: string;
                     ColIndex: Integer;
                     CaseInsensitive: Boolean = True): integer;
var iIndex: Integer;
begin
  Result := -1;
  iIndex := Grid.FixedRows;
  while (iIndex < Grid.RowCount) and (Result < 0) do
    begin
      if AnsiSameStr(Grid.Cells[ColIndex,iIndex],Txt2Find) or
        (CaseInsensitive and AnsiSameText(Grid.Cells[ColIndex,iIndex],Txt2Find)) then
        Result := iIndex;
      Inc(iIndex);
    end;
end;

Damit hat es bei mir wunderbar funktioniert.