Vokal ersetzen

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

[Bummi]

Für mein Verständnis müsste txt ein String und v ein Char sein ....

[Axl]

Meine Datentypen also String usw. funktionieren da ich ja schon andere prozeduren eingefügt habe.

Mein einziges problem noch:
v soll als Wert in die listbox, also sowas wie v:=lb.items.add(weis ich nicht??))<-muss noch was eingefügt werden.
Mir fehlt der korrekte Aufruf.
e_xs.text:=FLOATTOSTR(xs); wäre ja nicht für eine Listbox aber das halt nur für eine Listbox mit v.