Vokal ersetzen

[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.

[Axl]

Also
- v ist der neue Vokal den ich über das Editfeld eingebe
- txt ist der Text (ARRAY [1..50] of STRING)
- z soll die Position sein wo der neue vokal an die Stelle des alten kommt.
In txt soll der Vokal v für alle Vokale die im text enthalten sind eingefügt werden.

[Bummi]

[DeddyH]

Also, ich persönlich verstehe nicht, was Du da zu tun versuchst. Mir scheint, Du bist mit Deinen eigenen Variablen durcheinander geraten. Beachte auch bitte den Hinweis von p80286:

Zitat:

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)

[Bummi]

Wenn Du sowas machst
txt ist der Text (ARRAY [1..50] of STRING) Meinst Du dann

Delphi-Quellcode:

for i := 1 to Length(text[0]) do 
  begin
   if  text[0][i] ......
  end;

und warum >> v : SHORTSTRING;

[Axl]

Nein txt:= ARRAY[1..50] OF STRING[255].
Für Shortstring geht auch String.
Mein Fehler liegt nur noch in dem Aufruf. V soll in der Listbox alle Vokale ersetzen. Also zum Beispiel aus "Inhalt" durch eingabe des Vokal u in dem Editfeld "Unhult" machen.

[DeddyH]

Delphi-Quellcode:

for i := 0 to DeineListbox.Items.Count - 1 do
  DeineListbox.Items[i] := Ersetze(DeineListbox.Items[i], DeinEdit.Text[1]);

So einfach könnte das sein, Du brauchst halt nur noch die "Ersetze"-Routine.