Vokal ersetzen

[Bummi]

Delphi-Quellcode:

var
 rep:String;
begin
 rep := 'ö';
 Listbox1.Items[0] :=
         StringReplace(
         StringReplace(Listbox1.Items[0], AnsiLowerCase(rep) ,AnsiLowerCase(Edit1.Text),[rfReplaceAll])
         , AnsiUpperCase(rep) ,AnsiUpperCase(Edit1.Text),[rfReplaceAll])
end;

[Axl]

Ich will ja nur in ein Editfeld zu Beispiel u eingeben. In der Listbox sollten dann alle Vokale durch das u ersetzt werden.

[Bummi]

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;

[DeddyH]

Dann übergib die entprechenden Eigenschaften als Parameter an die Funktion.

[Axl]

Und wie wäre das dann mit einer Prozedur. Wir sollen es damit machen. Was ist das Result in deinem Quelltext.

[p80286]

Zitat von Axl:

Und wie wäre das dann mit einer Prozedur. Wir sollen es damit machen. Was ist das Result in deinem Quelltext.

Wo genau klemmt es denn?
Bummi hat Dir doch schon ein schönes Beispiel für eine Funktion geliefert.

Gruß
K-H

wenn Du den Vokal in ein EditFeld eingibst, dann solltest Du ihn über v:=edit1.Text[1]; bekommen.
(Fehlerprüfungen hab ich mir mal geschenkt)

[Axl]

Also hier mein Quelltext für die Prozedur..

Delphi-Quellcode:

var z     : integer;
    v     : SHORTSTRING;
begin
v:=evokal.text;
FOR z:=1 TO LENGTH(txt) DO
IF (txt[z]= 'a')or (txt[z]= 'e')or (txt[z]= 'i') or (txt[z]= 'o') or (txt[z]= 'u')
 or (txt[z]= 'A') or (txt[z]= 'E') or (txt[z]= 'I') or (txt[z]= 'O') or (txt[z]= 'U')
THEN txt[z]:=v;
v:=lbdatei.items.Add(INTTOSTR(z));
end;

Beim letzten funktioniert es nicht.
Also ab v:=...
Es werden nicht die Vokale geändert. Der Text bleibt gleich.

[DeddyH]

Tja, dann sag uns mal, was z, txt und v ist.