String in TObjectList suchen

[DeddyH]

Wäre es nicht einfacher, die Suche in eine eigene Methode auszulagern? Dazu könnte man entweder die Liste erweitern, oder man macht es zur Not von außen.

Delphi-Quellcode:

function TWasWeißIch.IndexOfToken(const Token: string): integer;
var
  idx: integer;
begin
  Result := -1;
  for idx := 0 to List.Count - 1 do
    if Token = List[idx].sWort2 then
      begin
        Result := idx;
        break;
      end;
end;

Gibt diese Funktion -1 zurück, ist das Wort nicht enthalten.

[StepByStep]

@mkinzler: Das hatte ich ja verbessert, s. #3

@DeddyH: Ich habe daraus zwar keine eigene Funktion gemacht, aber ich habe das Problem mit einer For-Schleife lösen können. Danke dafür. Er geht das jetzt auch alles richtig durch, doch jetzt wirft er mir während ich das eben gedebuggt habe eine Exception bei meinem Sortieralgorithmus aus...

Code:

procedure TForm1.Sort(var List: TObjectList<TWort>);
var
  iCounter, iHcounter, iPosition: integer;
  Temp:                           TWort;
begin
  iHcounter := 0;
  iCounter  := 0;
  while iCounter < High(List[List.Count - 1].iAnzahl) do
  begin
    iPosition := iCounter;
    if iHcounter = High(List[List.Count - 1].iAnzahl) + 1 then
    begin
      inc(iCounter);
      iHcounter := iCounter;
    end
    else
    begin
      for iHcounter := iCounter + 1 to High(List[List.Count - 1].iAnzahl) do
      begin
        if (List[iHcounter].iAnzahl) > (List[iPosition].iAnzahl) then <----------- Siehe hier.
        // Sortiert die TObjectList nach der Häufigkeit
        begin
          Temp            := List[iHcounter];
          List[iHcounter] := List[iPosition];
          List[iPosition] := Temp;
        end;
      end;
      iHcounter := 0;
    end;
  end;
end;

Dies ist ebenfalls wieder eine OutOfRange-Exception, aber die verstehe ich nicht so ganz. iHcounter soll eine andere Indexposition haben als iPosition. Ich muss ja schließlich irgendwie die Zahlen zu den Strings sortieren und damit einhergehend vollständige Elemente der TObjectList, oder ist das falsch?

@Edit: Ich verlange nicht, dass ihr mir den kompletten Code vorschreibt, so lerne ich schließlich nicht... Ich brauche nur das Verständnis. Danke.

[DeddyH]

TObjectList enthält bereits eine Sort-Methode, da böte es sich ja an, diese zu benutzen. Aber selbst wenn nicht: was versuchst Du mit dem High() zu ermitteln, mir ist das nicht klar?

[StepByStep]

@DeddyH: Da stimme ich dir zu, wenn die TObjectList bereits einen Sortieralgorithmus besitzt, werde ich diesen auch nehmen. Bis dato wusste ich davon aber noch nicht.

@DeddyH & Blup: Mit dem High(...) möchte ich sagen, dass er von Beginn der List bis zum höchsten Indexwert durchgeht und sortiert - naja, zumindest habe ich mir das gedacht.

[DeddyH]

Schau doch bitte mal nach: High().

[StepByStep]

Zitat:

In Delphi können Sie mit High die Obergrenze eines Ordinal-, Array- oder ShortString-Wertes abrufen.

Also wenn ich das jetzt richtig verstanden habe, dann kann man diese Funktion sowieso nicht auf TObjectList übertragen.
Wenn das so ist, würde ja sowie so dein Vorschlag bezüglich der integrierten Sortiermethode greifen DeddyH.

Ich glaube jetzt muss ich mich da erstmal reinlesen, danke für die Hilfe bis hierhin.

Gruß
Jan

[DeddyH]

iAnzahl dürfte ja ein Ordinaltyp (Integer?) sein. Also gibt High(List[List.Count - 1].iAnzahl) immer denselben Wert zurück, nämlich den des maximal möglichen für den Typ von iAnzahl, im Falle von Integer also MAXINT.