Wie kann man in Delphi bestimmte Zeichen in einer Zeichenkette durch andere ersetzen?

1 Antwort

Verwende die Funktion Replace, um einen String (auch 1 Zeichen) innerhalb einer anderen Zeichenkette zu ersetzen.

Beispiel: Dein Ausgangs-String (Dest) enthält "1234567890"

und du willst den Teilstring "345" (SubStr) durch den String "ABCDE" (Str) ersetzen, dann sieht das Ergebnis so aus: "12ABCDE67890" Diese Funktion verwendet die Funktion Pos (Wo ist der gesuchte String), sowie die Prozeduren Delete (gesuchten String löschen) und Insert (Einfügen des neuen Strings)

function Replace(Dest, SubStr, Str: string): string;
var
Position: Integer;
begin
Position:=Pos(SubStr, Dest);
Delete(Dest, Position, Length(SubStr));
Insert(Str, Dest, Position);
Result:=Dest;
end;

gefunden unter http://www.greatis.com/delphicb/tips/lib/algorithms-replacestr.html

Für dich sieht die Anwendung dann so aus: var NeuerString: String; NeuerString: = Replace(AlterString, ' ', '');

Neuer String sollte dann AlterString ohne Leerzeichen sein.

Und? klappts?

Was möchtest Du wissen?