Stringreplace - Nur letzten Buchstaben ersetzen?

[Darko]

Hallo!
Hat jemand vlt eine Möglichkeit, wie man nur den letzten Buchstaben ersetzen kann?
Dies ist ja mit der Standard-Funktion nicht möglich. :(

[Sherlock]

Schau Dir halt nur den letzten Buchstaben an... :stupid:

Die einzelnen Zeichen eines Strings kannst Du mit String[Zeichennummer] referenzieren.

Sherlock

[Darko]

Hättest du ein Beispiel?

Ich habe es gerade mal mit der Funktion Pos versucht aber bringt kein Ergebnis:

Delphi-Quellcode:

function Kuerzen(const s:String): String;
begin
  Result:=StringReplace(s,'=',',',[rfReplaceAll]);
  if Pos(',', Result)=Length(Result) then
    Result:=StringReplace(Result,'=',',',[]);
end;

[mkinzler]

Delphi-Quellcode:

s[Length(s]] := '<Neuer Buchsatbe>';

[SirThornberry]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

s[Length(s]] := '<Neuer Buchsatbe>';

Dabei aber sicherstellen das der String auch mindestens ein Zeichen lang ist :-)

[Darko]

Ich geh mal davon aus, dass es "s[Length(s)]" heißt. :)

Aber leider bekomm ich folgende Fehlermeldung: [Fehler] Unit2.pas(732): Der linken Seite kann nichts zugewiesen werden

[mkinzler]

Dann versuch mal

Delphi-Quellcode:

setLength( s, Length(s)-1);
s := s + '<Neuer Buchstabe>';

[tomsel]

dafür ist "const" ja schließlich da

[Darko]

Zitat:

Zitat von tomsel

dafür ist "const" ja schließlich da

Ich hätte mich heute Mittag doch hinlegen sollen. ^^
Dämlich..

Danke an euch! ;)