String mit Dateipfad umstellen

[MondoShiva]

Hallo zusammen,

danke schonmal fürs annehmen meines Problems :) und helfen.

Mein Problem stellt sich wie folgt dar.

Ich lese einen String aus dem TOpenDialog aus, welchen ich anschließend verändern möchte um Ihn dann in eine txt datei zu schreiben ohne den Inhalt derer zu verlieren.

Lesen Schreiben und hinzufügen ist kein Problem aber ich kriege den String nicht umgestellt.

Folgendes lese ich:
C:\Users\Admin\Documents\Embarcadero\Studio\Projek te\Win32\Debug\Project1.exe

und folgendes muss ich daraus machen:
Project1|Project1.exe|C:\Users\Admin\Documents\Emb arcadero\Studio\Projekte\Win32\Debug

Habe schon versucht "\" als Delimiter zu nutzen und an die letzte stelle zu navigieren, jedoch ist meine Erfahung hier nicht wirklich groß. Aber ich bin willens zu lernen :)

Sicherlich eine kleinigkeit für jemanden mit mehr Erfahrung.

[DeddyH]

Aus der hohlen Hand, daher ungetestet:

Delphi-Quellcode:

Exename := ExtractFileName(Pfad); //Project1.exe
WithoutExtension := ChangeFileExt(Exename, ''); //Project1
DirName := ExtractFileDir(Pfad); //C:\Users\Admin\Documents\Embarcadero\Studio\Projekte\Win32\Debug

[MondoShiva]

Ohne Worte war ich aufm Holz weg.

Großes Danke :thumb:

[Uwe Raabe]

Und nun noch für die mit neuerem Delphi:

Delphi-Quellcode:

uses
  System.IOUtils;

...

  Pfad := 'C:\Users\Admin\Documents\Embarcadero\Studio\Projekte\Win32\Debug\Project1.exe';

  ExeName := TPath.GetFileName(Pfad); 
  PrjName := TPath.GetFileNameWithoutExtension(Pfad); 
  DirName := TPath.GetDirectoryName(Pfad);

  output := string.Join('|', [PrjName, ExeName, DirName]);