Das letzte Zeichen eines Strings ermitteln

[S2B]

Mit diesem Code kann man das letzte Zeichen eines Strings ermitteln:

Delphi-Quellcode:

var s: String;
begin
  Label1.Caption:=copy(s,Length(s)-1,0);
end;

Das kann man z.B. dazu verwenden, um einen Pfad um ein fehlendes "\" am Schluss zu ergänzen:
if copy(s,Length(s)-1,0)<>'\' then s:=s + '\'; Edit: Ohne Worte!

[rantanplan99]

Ich muss dich korrigieren.

Zitat:

copy(s,Length(s)-1,0);

liefert IMMER einen leeren String zurück. Wenn muss es heissten
copy(s,Length(s)-1,[b]1[/b]); und ausserdem gibt es die Funktion RightStr mit der das letzte Zeichen so ermittelt wird:RightStr(s, 1); womit dein Beispiel Code so aussieht:if RightStr(s, 1)<>'\' then s:=s + '\';

[Mirilin]

Für Deine Anwendung :
function IncludeTrailingBackslash(const S: string): string;

Die Hilfe selbst

IncludeTrailingBackslash stellt sicher, daß ein Pfadname mit einem Begrenzungszeichen endet ('\'). Diese Funktion ist nur aus Gründen der Abwärtskompatibilität enthalten. In neuen Programmen sollte die Funktion IncludeTrailingPathDelimiter verwendet werden.

-> IncludeTrailingPathDelimiter


mfg Tobias

[S2B]

Zitat von rantanplan99:

Zitat:

copy(s,Length(s)-1,0);

liefert IMMER einen leeren String zurück. Wenn muss es heissten
copy(s,Length(s)-1,[b]1[/b]);

Ach so! Als ich nämlich einen String mit einem "\" am Schluss überprüft habe, dann kam bei
copy(s,Length(s)-1,1); Der letzte Buchstabe des Ordners und nicht der "\". Irgendwie ist das komisch! Aber ich werde jetzt eine der beiden Varianten verwenden!

[CalganX]

Hi,
sString[length(sString)] ist auch noch eine Möglichkeit.

Chris

[SirThornberry]

@Chakotay1308: Bei deiner Variante musst du aber noch sicherstellen das es kein LeerString ist sonst knallts

[CalganX]

Hi,
stimmt. Wenn ich dann aber schreibe

Delphi-Quellcode:

{Das ich hier zwei Abfragen habe, dient nur zur Verdeutlichung. Man sollte sich auf eines beschränken, alles andere wäre uneffektiv}
if (length(TempString) <> 0) or (TempString <> '') then
  LastChar := TempString[length(TempString)]
else
  LastChar := '';

Chris

[Christian Seehase]

Moin Zusammen,

und dann könnte man noch die Funktion AnsiLastChar benutzen