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..

[himitsu]

z.B. ein Array of Integer mit der Länge ListBox2.Items.Count anlegen
und dann die ListBox1.Items durchgehn, schauen ob er String mit einem ListBox2.Items übereinstimmt und dann den Zähler(siehe Array) an Position des gefundenen ListBox2.Items erhöhen


im Grunde mußt du nur ListBox2 durchgehn und alles mitzählen ... gibt unzählige Lösungen dafür.

Zitat:

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

ganz einfach nach Veränderung neu Zählen oder bevor es benötigt wird :zwinker:

[PinkFloydFan]

Hallo Himitsu!!

Dank für deine schnelle Antwort!

Ich kann ja kein

Delphi-Quellcode:

Array of Integer

Anlegen, da ich die Anzahl der Einträge nicht weiß..

ich kann also kein SetLength() machen...

genau hier liegt der Knackpunkt....

[soulies]

hoi,

Delphi-Quellcode:

 
setlength(array of integer, listbox...items.count);

cya

[PinkFloydFan]

ohaa...


ich sagte doch:

Ich sitz auf meiner eigenen StromVerSorgung(Nil)..


Vielen Dank an soulies und himitsu ..
und sowieso Delphi-Praxis.net


Werde euch treu bleiben!