String in TObjectList suchen

[DeddyH]

Ich hab mal schnell unter XE eine kleine unkommentierte Demo geschrieben.

[Sir Rufo]

Könntest du für Delphi-Code auch die Delphi-Tags benutzen?

Zitat von StepByStep:

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

Delphi-Quellcode:

  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);

Den Comparer würde ich so definieren:

Delphi-Quellcode:

uses
  Math;

TComparer<TWort>.Construct(
  function (const L, R : TWort ) : Integer
  begin
    Result := CompareValue( L.iAnzahl, R.iAnzahl );
  end );

und das verstehe ich irgendwie überhaupt nicht

Delphi-Quellcode:

  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);

Nehmen wir an, du hast dort 3 Einträge und der erste Eintrag beinhaltet in iAnzahl eine 5, dann versuchst du auf das 5. Element der Liste zuzugreifen, was es logischerweise gar nicht gibt ... sehr seltsam

[StepByStep]

Guten Morgen,

@Sir Rufo: Wenn ich den Rückgabewert der Funktion wegnehme, dann meckert er, dass er einen ":" erwartet.
Zu folgenden Zeilen:

Delphi-Quellcode:

  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);

iAusgabe ist quasi mein Index. Dieser soll vom niedrigsten bis zum höchsten Wert durchlaufen und entsprechend für jeden Indexwert die dort enthaltene Anzahl und das Wort in das Memofeld schreiben. Kann es vielleicht sein, dass ich TObjectLists falsch verstanden habe?

Für mich ist das eine Liste von 0 bis n. Da ich Integer- und Stringwerte habe, gibt es zwei Spalten, die nebeneinander sind. Und ich kann doch über einen Indexwert darauf zugreifen oder etwa nicht?

[Zoot]

hast du also eigentlich folgendes im Sinn?

Delphi-Quellcode:

  
  for i := 0 to List.Count - 1 do
    Memo2.Lines.Add(IntToStr(List[i].iAnzahl) + 'x ' + List[i].sWort2);

[Sir Rufo]

Das mit ohne dem Rückgabewert war falsch (ist im Beitrag korrigiert).

Nehmen wir an, du hast folgende Liste

Index	sWort	iAnzahl
0	hallo	2
1	du	5
2	da	7

dann ergibt sich daraus, dass iAusgabe von 2..7 läuft.

Zeige mir doch mal in der Liste die Zeilen mit dem Index 3..7 die sind nicht da!

Verstehen könnte ich for iAusgabe := 0 to List.Count -1 do , weil dann läuft iAusgabe von 0..2 und das sind gültige Index-Werte.

PS So ein Debugger leistet tolle Arbeit, wenn man den benutzt und sich einfach während des Ablaufs die Variablenwerte anschaut.

[StepByStep]

Ich bedanke mich für eure Hilfe, die Erklärung zu dem Index der TObjectList hat mir gerade sehr geholfen. Ich lese richtig aus und zähle auch richtig. Danke nochmals.

Gruß
Jan