letzten buchstaben aus string entfernen

[any_key]

aloah
ich hab mal ne frage....
undzwar würde ich gerne wissen wie man aus einem string den letzten buchstaben entfernen kann
also z.b. wenn ich das so habe
text:= abcdef;
das ich daraus dann
text:= abcde;
aber halt unabhängig davon was der letzte buchstabe is

[DP-Maintenance]

Dieses Thema wurde von "MrSpock" von "Multimedia" nach "Object-Pascal / Delphi-Language" verschoben.
Ist keine Multimediafrage.

[MrSpock]

Delphi-Quellcode:

text := Copy(text, 1, length(text)-1);

[any_key]

danke für die schnelle antwort
werds gleich mal ausprobieren

[Balu der Bär]

Moin any_key,

wie du dir vielleicht denken kannst wirst du nicht der erste mit solch einem Problem sein, deshalb lohnt sich das Benutzen der DP-Suchfunktion bei solchen Themen in den meisten Fällen. ;)

[negaH]

Delphi-Quellcode:

text := Copy(text, 1, length(text)-1);

ineffizient, besser so

Delphi-Quellcode:

 SetLength(Text, Length(Text) -1));

das vermeidet ein komplettes Kopieren und Neuallozieren des ganzen Strings -1 Zeichen im Speicher. Das ist nämlich der Fall bei Copy().

Gruß Hagen

[semo]

oder per delete:

Delphi-Quellcode:

Delete(Text, Length(Text) -1, 1));

[GoTo0815]

Hallo,

ich hatte hier gerade die Antwort von "semo" gelesen. Ist es nicht so, dass bei Zeichenpositionen im String eine Reduzierung der Position um -1 nicht notwendig ist?
Nach meinem Kenntnistand beginnt der Zähler im String bei 1.

Delphi-Quellcode:

// Beispielsweise prüfen auf ein Komma als letztes Zeichen
// Copy wird hier verwendet, da das auch mit leeren Strings funktioniert und dann keine Fehlermeldung wirft.
if copy(MyString,length(MyString),1) = ',' then
begin
// Löschen des letzten Zeichens.
  Delete(MyString, Length(MyString), 1);
end;

Beste Grüße

[himitsu]

Ja, beginnt bei 1 (seit Kurzem auch wieder ÜBERALL, auch wenn man für Android/iOS kompiliert)
{$ZeroBasedStrings OFF} ist der DFAULT
Grund siehe ShortString -> auf Adresse 0 lag das Längen-Byte.

Also ohne -1, für das letzte Zeichen.

Delphi-Quellcode:

if EndsStr(',', MyString) then
  Delete(MyString, Length(MyString), 1);  

  // außer für "bis vor das letzte Zeichen"
  MyString := LeftStr(MyString, Length(MyString)-1); // ebenfalls beim COPY

Copy
LeftStr
RightStr
MidStr
Delete
EndsStr
EndsText

oder StringHelper: (die zählen ab 0)
Substring
Remove
EndsWith
EndText