listbox1 mit listbox2 vergleichen

[Lefko]

so vergleichst du die ganzen listboxes, ob itemanzahl und items übereinstimmen:

Delphi-Quellcode:

function same(Box1, Box2 : TListbox) : boolean;
var i : integer;
begin
result := false;

if Box1.ItemIndex = Box2.ItemIndex then
  begin
   for i := 0 to Box1.ItemIndex -1 do
    begin
     if not (Box1.Items[i] = Box2.Items[i]) then exit;
    end;
   result := true;
  end;
end;

(Das ist jetz mal so hier hingeschrieben, keine Garantie, dass ich mich nich verdacht hab )

MfG Lefko.