AW: Zeichen in String ersetzen
Zitat:
Delphi-Quellcode:
function StringReplaceEx(const aString, FromStr, ToStr: string; bCaseSensitive: Boolean = False): string;
var i: Integer; aStringA, aFromStrA, aToStrA: string; begin aStringA := aString; aFromStrA := FromStr; aToStrA := ToStr; if FromStr = aStringA then begin Result := aStringA; Exit; end; Result := ''; if not bCaseSensitive then i := Pos(UpperCase(aFromStrA), AnsiUpperCase(aStringA)) else i := Pos(aFromStrA, aStringA); while i > 0 do begin if i > 1 then Result := Result + Copy(aStringA, 1, i - 1); Result := Result + aToStrA; Delete(aStringA, 1, i + Length(aFromStrA) - 1); if not bCaseSensitive then i := Pos(UpperCase(aFromStrA), AnsiUpperCase(aStringA)) else i := Pos(aFromStrA, aStringA); end; Result := Result + aStringA; // Aufruf z.B. in einem Button showmessage( StringReplaceEx('C++ ist toll', 'C++', 'Delphi') ); |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:41 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz