letzten buchstaben aus string entfernen

[semo]

oder per delete:

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