Letzten Ordner aus Pfad ermitteln

[sexmagic]

Habs zwar nicht mit der Funktion gemacht, eher auf die schmutzige weise aber es haut hin!!

Vielen Dank nochmal Deddy für deine freundliche Unterstützung.

Hier noch wie ichs gemacht hab:

Delphi-Quellcode:

// find all files
  if FindFirst(mask, $23, search) = 0 then
  begin
    repeat

        aktualDir:= ExtractFilename(ExcludeTrailingPathDelimiter(ExtractFilePath(directory + search.Name)));
        aktualFile:= ChangeFileExt(search.Name, '');
//        ShowMessage(aktualFile);
        if (aktualDir = aktualFile) then
        begin
          //XML Datei laden
          XMLDocument1.LoadFromFile(directory + search.Name);
          XMLDocument1.Active;
          // add the files to the listbox
          Form1.ListBox1.Items.Add(XMLDocument1.DocumentElement.childNodes[0].childNodes[0].Text + '  --  ' + directory + search.Name);
          Inc(Count);
        end;
    until FindNext(search) <> 0;
  end;