string letztes zeichen überprügen und ggf. löschen

[gandime]

hi,
ich möchte von einem string das letzte zeichen überprüfen ob es ein '\' ist und wenn ja dann soll es weggenommen werden
wie bekomme ich das hin?

mfg gandime

[Mackhack]

Schon mal die Hilfe bemueht? Google Bemueht? Etwas auf english gedacht? Dann waere da wohl Delete rausgekommen.

Hier wie du es machen koenntest... Aber erstmal selbst gucken in der Hilfe mit F1 Delete fuer die Function zum loeschen und zum gucken ob das letzte Zeiche nein "\" ist kannst du function AnsiLastChar nutzen.

Und hier noch ein Beispiel weils so schoen war...

Delphi-Quellcode:

var
  S : String;
begin
  S := Edit1.Text;
  if AnsiLastChar(S)^ = '\' then
    Delete(S, Length(S), 1);
  ShowMessage(S);
end;

[Christian Seehase]

Moin Mackhack,

wenn s leer ist bekommst Du so aber eine AV.

Andere, von Deiner abgeleitete Variante:
  while (AnsiLastChar(s) <> nil) and (AnsiLastChar(s)^ = '\') do SetLength(s,length(s)-1); Dann gibt es noch die Delphifunktion ExcludeTrailingPathDelimiter, die für meinen Geschmack nur den Nachteil hat, dass sie bei mehreren aufeinanderfolgenden \ nur den letzten wegnimmt.

[gandime]

danke, funzt prima

mal zu den bemerkungen:

Zitat:

Schon mal die Hilfe bemueht?

ja habe ich und da is auch delete rausgekommen aber mir fehlte halt "AnsiLastChar"

Zitat:

Google Bemueht?

ja, aber nur kurz weil ich auch iwann schlafen wollte. --> dort bin ich nicht so schnell auf etwas gutes gestoßen

[3_of_8]

Sollte Probleme geben wenn der String '' ist.

[Der_Unwissende]

Zitat von 3_of_8:

Sollte Probleme geben wenn der String '' ist.

Zitat von Christian Seehase:

Moin Mackhack,

wenn s leer ist bekommst Du so aber eine AV.

Andere, von Deiner abgeleitete Variante:
  while (AnsiLastChar(s) <> nil) and ...

Was für Probleme denn?

[3_of_8]

Ah, stimmt, muss wohl genauer hinschauen.

[xaromz]

Hallo,

wenn es wirklich nur um das Zeichen "\" geht, dann ist ExcludeTrailingPathDelimiter aus SysUtils genau die richtiger Routine.
Zumindest, solange der PathDelimiter ein "\" ist.

Gruß
xaromz

[Christian Seehase]

Moin xaromz,

Zitat von Christian Seehase:

Dann gibt es noch die Delphifunktion ExcludeTrailingPathDelimiter, die für meinen Geschmack nur den Nachteil hat, dass sie bei mehreren aufeinanderfolgenden \ nur den letzten wegnimmt.

[himitsu]

Zitat von Christian Seehase:

Andere, von Deiner abgeleitete Variante:
  while (AnsiLastChar(s) <> nil) and (AnsiLastChar(s)^ = '\') do SetLength(s,length(s)-1);

Code:

while [color=#ff0000](s <> '')[/color] and (AnsiLastChar(s)^ = '\') do SetLength(s,length(s)-1);