Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Vokal ersetzen
12. Apr 2012, 14:00
Sorry, ich hatte übersehen daß es um alle Vokale geht
Delphi-Quellcode:
Function ReplaceAllVocals(const s:String;New:Char):String;
var
i:Integer;
begin
Result := s;
For i := 1 to Length(s) do
case s[i] of
'a','e','u','i','o','ü','ö','ä':Result[i] := AnsiLowerCase(New)[1];
'A','E','U','I','O','Ü','Ö','Ä':Result[i] := AnsiUpperCase(New)[1];
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Showmessage(ReplaceAllVocals('Was Auch immer hier stehen könnte','o'));
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|
|
Zitat
|