String in TObjectList suchen

[DeddyH]

Die Vergleichsfunktion ist ein TComparison. Leider ist dieser in der Hilfe nicht sonderlich detailliert erklärt, aber Du kannst Dir auch TListSortCompare anschauen, die Funktionsweise ist ja die Gleiche, wenn mich nicht alles täuscht.

[StepByStep]

Also, nach wie vor verstehe ich das nicht ganz. Weder das eine, noch das andere haben mir dabei geholfen.
Ich weiß nicht, wie ich das in meine Code einbinden muss... und je mehr ich mir durchlese, umso verwirrter bin ich.

Die dazugehörige Funktion muss ich doch irgendwo niederschreiben, erfolgt das in der class?

[DeddyH]

Die Funktion steht doch schon in #19.

[StepByStep]

Ja ich weiß, ich hatte dazu ja auch was geschrieben. Mein Problem ist einfach das Verständnis dafür.
Es wäre gut, wenn du mir vielleicht das ganze mal an einem Beispiel erklärst, weil ich stehe momentan echt auf dem Schlauch.

Ich habe also eine Liste mit zwei Elementen. Das erste hat einen Integerwert von 4 und das zweite Element hat einen Integerwert von 9.

Nach deinem Beispiel rechne ich jetzt '9-4' und das Ergebnis ist 5. Was genau bringt mir das aber jetzt? Was sagt diese 5 aus?
Diese Funktion muss ich aber doch gewiss irgendwo definieren/hinschreiben in meine Klasse oder nicht?

Entschuldigung... Ich bin gerade ziemlich begriffsstuzig.

Gruß
Jan

[mkinzler]

Nicht das Ergebnis, sondern das Vorzeichen ist wichtig.
Ergebnis positiv: 1. Wert ist größer
Ergebnis 0: beide Werte gleich
Ergebnis negativ: 2. Wert ist größer

[StepByStep]

Hm ok, das habe ich verstanden. Das funktioniert dann ja wahrscheinlich mit if-Anweisungen, aber wo passiert der eigentliche Tausch? In einer vordefinierten Funktion?

[DeddyH]

Der Tausch erfolgt intern in der Sort-Methode der Liste.

[StepByStep]

Hm... ich habe das zwar jetzt integriert bekommen, aber es kommen noch mehr Fehler.

Code:

  List.Sort(TComparer<TWort>.Construct(
    function(const Left, Right: TWort): integer
    begin
      Result := Left.iAnzahl - Right.iAnzahl;
    end));
  iAusgabe     := 0;
  for iAusgabe := List[iAusgabe].iAnzahl to List[List.Count - 1].iAnzahl do
    Memo2.Lines.Add(IntToStr(List[iAusgabe].iAnzahl) + 'x ' + List[iAusgabe].sWort2);

Erstmal, wenn ich in mein erstes Memo "Memo Meme Meme" eintippe, dann erfolgt in der Ausgabe, dem zweiten Memofeld, nur 2x meme, aber "1x memo" fehlt und ich bekomme wieder eine Exception. Ich hatte via Debugger mal in die Liste geschaut und auf Indexposition 0 stand immer noch Memo und auf 1 stand Meme... sollten die nicht getauscht werden? Reingeschaut hatte ich kurz vor der Ausgabe. Danke nochmal für eure Geduld.

[DeddyH]

Was hat denn der Wert einer Eigenschaft eines Eintrags mit der tatsächlichen Anzahl der in der Liste vorhandenen Einträge zu tun?

[StepByStep]

Zitat:

Was hat denn der Wert einer Eigenschaft eines Eintrags mit der tatsächlichen Anzahl der in der Liste vorhandenen Einträge zu tun?

Wenn du so fragst vermutlich nichts, aber ich möchte mit der Zeile

Code:

Memo2.Lines.Add(IntToStr(List[iAusgabe].iAnzahl) + 'x ' + List[iAusgabe].sWort2);

nur aussagen, dass die Anzahl dem entsprechenden Wort zugeordnet wird. Deine Aussage war doch bestimmt auf die Zeile bezogen, oder?
Irgendwie muss ich ja die Werte untereinander in dieses Memofeld schreiben.