textdatei sortieren

[herrentor]

das problem ist nur, dass es keine festen indizes gibt. es stehen immer unterschiedlich viele einträge unter'm datum. angenommen ich würde das datum auch noch rausnehmen, wie kann denn die zeilen vergleichen, ich durchschau irgendwie dein programm nicht. ich hätte das jetzt so gemacht:

Delphi-Quellcode:

if fileexists('C:\test.txt') then
        begin
        sl.LoadFromFile('C:\test.txt');
        if pos('werder; wird; meister', sl.Text)=0 then
        begin
         sl.Add('werder; wird; meister');
         sl.SaveToFile('C:\test.txt');
        end;
        end;

aber ich kann doch nicht alle möglichen varianten (werder; wird; meister/ werder; ist; meister/ etc.) hinschreiben, wie kann ich das vereinfachen und wie kann ich in die datei einen counter einfügen, der sich dann bei else erhöht?