Gleiche Strings in verschiedenen Arrays zählen???

[PinkFloydFan]

Hallo ers mal..


Ich sitz hier vollkommen auf meiner eigenen Stromversorgung....
ers ma der gwelldexd

Delphi-Quellcode:

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

type
    TtestMichMal = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  testMichMal: TtestMichMal;

implementation

{$R *.dfm}

procedure TtestMichMal.FormCreate(Sender: TObject);
begin
  //dient nur zum füllen der Listbox1..................
  Listbox1.Items.Add('aaa');
  Listbox1.Items.Add('bbb');
  Listbox1.Items.Add('ccc');
  Listbox1.Items.Add('ddd');
  Listbox1.Items.Add('eee');
  Listbox1.Items.Add('ccc');
  Listbox1.Items.Add('aaa');
  Listbox1.Items.Add('aba');
  Listbox1.Items.Add('bbb');
  Listbox1.Items.Add('aab');
  Listbox1.Items.Add('aaa');
  Listbox1.Items.Add('aba');
  Listbox1.Items.Add('aaa');
  //Ende Füllen Listbox2..........................

  //Füllen Listbox2..........................

  Listbox2.Items.Add('a');
  Listbox2.Items.Add('aaa');
  Listbox2.Items.Add('aba');

  //Ende Füllen Listbox2..........................
end;

wie kann ich feststellen, welche Inhalte von Listbox2 WieOft in ListBox1 (zur Laufzeit) vorhanden sind?
// mmmmmmh.. ne art BubbleSort???

hoffe auf Antworten

Grüsse PinkFloydFan Stephan

mit ner For.. schleife krieg ich das nicht hin..

// Editiert: Hab ich vergessen dazuzuschreiben: Items ListBox1 und Listbox2 ändern sich zur Laufzeit..