Redundanzprüfung

[marabu]

Hi.

Ich kann deinen Fehler nirgends entdecken - vielleicht steckt er in dem Code, den ich nicht sehen kann?

Delphi-Quellcode:

function CheckItems(lb: TListBox): Integer;
var
  i: Integer;
begin
  with lb do
  begin
    for i := Pred(items.Count) downto 1 do
      if Items[i] = Items[i-1] then
        Selected[i-1] := True;
    Result := SelCount;
  end;
end;

procedure TDemoForm.CheckButtonClick(Sender: TObject);
begin
  if CheckItems(lbFilter) > 0 then
  begin
    lbFilter.DeleteSelected;
    ShowMessage('Houston, we''ve got a problem');
    edFilter.SetFocus;
  end;
end;

Grüße vom marabu