Sammenligne indhold i 2 listbox

Mener du at du vil have en liste med de navne i box1 som ikke er i box2 og vice versa

nej...

Liste 1 er en fast parameter

Liste 2 er en dynamisk liste hvor navne forsvinder

Her er jeg interesseet i at få forskellen mellem liste 1 og liste 2 over i en liste 3.

ups vrøvler

det er som du beskriver

forskellen skal så vises i liste 3.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
procedure fd(b1,b2 : TListBox);
var
    i : integer;
begin
    for i:=0 to b1.Count-1 do
      if b2.Items.IndexOf(b1.Items[i])=-1 then
        ListBox3.Items.Add(b1.Items[i]);
end;

begin
    fd(ListBox1,ListBox2);
    fd(ListBox2,ListBox1);
end;

end.

Men hvis, som du måske skriver, navne i liste 2 indeholder kun navne som også er i liste 1 så behøver du ikke linien:
  fd(ListBox2,ListBox1);

får en fejl vedr., COUNT

Er der noget som skal uses?

Hej,

Prøv følgende:

LISTBOXx.Items.COUNT  (hvor x = 1 , 2 eller 3)...

istedet for LISTBOXx.Count 

-- dette kan være afhængig af den version af DELPHI du kører med.


KRISTIAN

Er lidt i tvivl om hvor det skal indsættes

kan ikke se der står nogen steder listbox.Count

Køre Delphi 5 Interprise

for i:=0 to b1.Items.Count-1 do

Takker kroning

smid et svar...

Svar