Mach dich weg du Backslash

[AndreasMascher]

"eigentlich" ne einfache sache.. hehe:

wie kriege ich den Backslash am ende eines STrings wech?
verwende gerade ExtractFilePath(Application.Exename/ParamStr(0))

Thx an alle Helfer, die sich in "meinem" topic austoben wollen :-D

[Elias Zurschmiede]

Hallo
[font  size=2 face="Courier New"][font color="#000000"]procedure TForm1.Button1Click(Sender: TObject);
var
  sPath: String;
begin
  sPath := ExtractFilePath(Application.ExeName);

  if sPath[Length(sPath)] = '' then
    Delete(sPath, Length(sPath), 1);
  ShowMessage(sPath);
end;

[AndreasMascher]

vielen dank, elias!

[Loïs Bégué]

Es geht auch viel einfacher :o)

ExcludeTrailingPathDelimiter gibt einen Pfadnamen ohne das abschließende Begrenzungszeichen zurück.

Unit

SysUtils

Kategorie

Dateizugriff

function ExcludeTrailingPathDelimiter(const S: string): string;

Beschreibung

ExcludeTrailingPathDelimiter gibt S ohne abschließende Begrenzungszeichen ('') zurück. Wenn das letzte Zeichen in S ein Begrenzungszeichen ist, enthält der Rückgabewert S ohne das letzte Zeichen. Ansonsten wird S unverändert zurückgegeben.

Hinweis

ExcludeTrailingPathDelimiter arbeitet mit Multibyte-Zeichensätzen.

Gruß

[Rainer]

Ja, nur gibt es diese Funktion (anscheinend) nicht unter D5, dort gibt es z.B.
ExcludeTrailingBackslash auch aus SysUtils, vielleicht arbeitet ExcludeTrailingPathDelimiter auch unter Kylix, aber da ich kein Kylix installiert habe, kann ich dazu nix genaues sagen.

[AndreasMascher]

was es alles gibt *w*

thx!