Aus einem String das letzte Zeichen löschen

[Rapthor]

Hallo,
wie kann ich überprüfen ob ein String als letztes Zeichen ein "\" hat und wenn ja, dass es automatisch gelöscht wird, aber den Teil davor unberührt lässt?

[sakura]

Hi, ist ganz einfach, hier mal mit allen Sicherheitsbafragen.

Delphi-Quellcode:

if Length(aString) > 0 then
  if AnsiLastChar(aString)^ = '\' then
    SetLength(aString, Pred(Length(aString)));

......

[Chewie]

Prüfen, ob letztes Zeichen '\' ist:
if s[Length(s)] = '\' then //... Letztes Zeichen löschen:
Delete(s, Length(s), 1); Andere Möglichkeit: Mit ExtractFileDir bekommt man die Pfadangabe ohne das abschließende Slash/Backslash. Wenns dir also da rum geht, nimm am besten ExtractFileDir.

[Rapthor]

Nach folgendem Code

if AnsiLastChar(Edit2.Text)^ = '\' then SetLength(Edit2.Text, Pred(Length(Edit2.Text))); .. gibt er mir diese Meldung:

"Constant object cannot be passed as var parameter"

[sakura]

Das liegt an SetLength, welches nur Variablen annimmt und keine Objekt-Eigenschaften.

Delphi-Quellcode:

if AnsiLastChar(Edit2.Text)^ = '\' then
  Edit2.Text := Copy(Edit2.Text, 1, Pred(Length(Edit2.Text));

......

[Chewie]

Hi, versuch mal das:

Delphi-Quellcode:

var
  s: String;
begin
  s := Edit1.Text;  
  if AnsiLastChar(s)^ = '\' then SetLength(s, Pred(Length(s)));

Edit: Zu spät