textdatei sortieren

[herrentor]

hab das jetzt mal versucht. programm macht auch keine zicken, sortiert aber auch nicht.

Delphi-Quellcode:

if pos('['+Statusbar1.Panels.Items[1].Text+']', sl1.Text)=0 then
       begin
       writeln(text_datei,'['+StatusBar1.Panels.Items[1].Text+']');
       end else
       begin
       m:=sl1.IndexOf('['+StatusBar1.Panels.Items[1].Text+']');

       for l:=sl1.IndexOf('['+StatusBar1.Panels.Items[1].Text+']')-1 to m do
           sl1.sorted:=true;

       end;

in StatusBar1.Panels.Items[1] läuft das datum.

[Torpedo]

Zitat von herrentor:

aber ich kann doch nicht alle möglichen varianten (werder; wird; meister/ werder; ist; meister/ etc.) hinschreiben, wie kann ich das vereinfachen?

Such mal nach Explode

[herrentor]

das hilft mir nicht viel weiter. ich benötige eine schleife die vom string aktuelles datum bis zum letzten string sortiert.

[Die Muhkuh]

Such doch einfach immer nach dem ";" und kopiere diesen Wert in eine andere StringList. Dann lässt du diese durchlaufen und löscht vorhandene Einträge.

[herrentor]

das wird glaub ich so nichts. ich hab jetzt ne datenbank angelegt, ma sehen ob das damit klappt. trotzdem danke

[Schuster]

Mit dieser Function bekommst du die Position des ersten und nächsten Datums:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x,a1,a2 : integer;
temp: string;
begin
    MeineStrinList:=TStringList.Create;

    MeineStrinList.LoadFromFile('C:\Programme\Borland\Delphi7\Projects\Test\Test.txt');

    x:=0;
    while x <= MeineStrinList.Count-1 do
    begin
        try
        strtodate( trim(copy(MeineStrinList[x],2,8)));
        temp:= trim(copy(MeineStrinList[x],2,8));
        if inttostr(a1) = '' then
            a1:= x      //Position erstes Datum
        else
            a2:= x;     //Position zweites Datum

        inc(x);
        except
        on EConvertError  do
         inc(x);
        end;


    end;
    ShowMessage(inttostr(a1)+ inttostr(a2));
end;

[herrentor]

ok danke, dass hilftmir weiter