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