Ini-Datei komplett auslesen

[teebee]

Habe hier mal was zusammengebastelt:

Delphi-Quellcode:

// Wandelt ein Datum aus dem Format 'tt.mm.jjjj' in das Format 'jjjjmmtt', so wird es sortierbar
Function MakeSortableDate(Date: String): String;
Begin
  Result := Copy(Date,7,4)+Copy(Date,4,2)+Copy(Date,1,2);
End;

// die CustomSort-Routine
Function DateSort(List: TStringList; i1,i2: Integer):Integer;
Begin
  Result := CompareText(MakeSortableDate(List.Values[List.Names[i1]]),MakeSortableDate(List.Values[List.Names[i2]]));
End;

procedure TForm1.Button1Click(Sender: TObject);
Var mi: TMemIniFile;
    sl: TStringList;
begin
  mi := TMemIniFile.Create('test.ini');
  sl := TStringList.Create;
  Try
   mi.ReadSectionValues('Data',sl);
   sl.CustomSort(DateSort);
   vle.Strings.Assign(sl);
  Finally
   mi.Free;
   sl.Free;
  End;
end;

Gruß, teebee