textdatei sortieren

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