Finde foreskelle (2)

Når du tilføjer linier i den listbox hvor der altid er 16 items, kan du jo samme sted tilføje de samme linier i den anden listbox.

Er det mig der har misforstået noget ?

/SpEeDy

prøv det her :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    StringList1 : TStringList;
    StringList2 : TStringList;
  public
    Counter : Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  Randomize;
  StringList1 := TStringList.Create;
  StringList2 := TStringList.Create;
  for i := 0 to 15 do
    StringList1.Add(IntToStr(i));
StringList2.Assign(StringList1);
Counter := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k : Integer;
begin
  j := random(4);
  for i := 0 to j do
  begin
    inc(Counter);
    Counter := Counter mod 15;
    k := Random(15);
    StringList1[counter] := IntToStr(k);
  end;

  for i := 0 to 15 do
    if StringList2.IndexOf(StringList1[i]) = -1  then
      StringList2.Add(StringList1[i]);
end;

end.


Jens b

http://www.eksperten.dk/spm/233102
http://www.eksperten.dk/spm/231933

er du død `?