![]() |
Letztes Zeichen eines String ermitteln
Hi,
ich habe hier im Forum und in der Delphi-Hilfe gesucht aber nix gefunden. Also ich möchte das letzte Zeichen eines Strings ermitteln. Wenn dieses Zeichen ein \ sein sollte, soll es abgeschnitten werden. Ich denke ich muss das mit POS machen, aber ich weiß nicht wie ich damit umgehe. Wie schon gesagt, die Delphi-Hilfe weiß nichts über POS. Weiß jemand wie ich das machen könnte? Greetz und thx |
Re: Letztes Zeichen eines String ermitteln
Du kannst z.B. auf die Var s mit s[1] zugreifen, um den 1 ersten Buchstaben zu bekommen (Char). Mit Length bekommst du die gesamt Länge.
|
Re: Letztes Zeichen eines String ermitteln
Tut der folgende Code auch ohne Pos nicht das gleiche?
Delphi-Quellcode:
Man überprüfe das letzte Zeichen und lösche es ggf..
procedure TForm1.Button1Click(Sender: TObject);
var MeinString: String; begin MeinString := 'Text\'; if MeinString[length(MeinString)] = '\' then Delete(MeinString, length(MeinString), 1); showmessage(MeinString); end; |
Re: Letztes Zeichen eines String ermitteln
Zitat:
Mit Indizes kann man jedes einzelne Zeichen eines Strings ansprechen. Das erste Zeichen hat den Index eins. Die Länge eines Strings kann man mit der Funktion ![]() |
Re: Letztes Zeichen eines String ermitteln
Hi!
Ich würde es so machen:
Delphi-Quellcode:
wobei str dein String ist.
if str[length(str)] = '\' then setlength(str, length(str)-1);
Ciao fkerber |
Re: Letztes Zeichen eines String ermitteln
Er tut es, siehe auch mein Post.
|
Re: Letztes Zeichen eines String ermitteln
Und wenn es nur um den Backslash in einer Pfadangabe geht dann kuck dir mal an:
![]() ![]() ![]() |
Re: Letztes Zeichen eines String ermitteln
Zitat:
![]() ![]() mfG mirage228 |
Re: Letztes Zeichen eines String ermitteln
Zitat:
![]() Danke für eure antworten. Funktioniert alles ;-) Greetz und thx |
Re: Letztes Zeichen eines String ermitteln
Hi!
Du musst pos klein schreiben. Ciao fkerber |
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz