ersetzen von buchstaben in text

Pago

Grünschnabel
Hallo

und zwar hab ich schon ähnliche posts finden können aber sehe mich nicht wirklich zu recht.
Ich bräuchte Hilfe bei einem Programm in Delphi 4
mit dem man a=aba, e=ebe, i=ibi, o=obo und u=ubu
verwandelt .... ich habe aber in der (leider spärlichen) Hilfe
nichts brauchbares finden können ...
so soll z.b. (ich würd gerne edit-Komponenten verwenden)
der im edit1-Textfeld stehende Satz, " Hallo wie gehts?"
[edit] durch ein buttonklick[/edit]
in einem edit2-Textfeld so erscheinen:
"Haballobo wibiebe gebehts?" stehen.
Ich würde mich über Hilfe sehr freuen

Danke
Pago

Ps.: Über den Sinn dieses Programms diskutier ich lieber nicht,
also nur hilfreiche Posts bitte :)
 
Zuletzt bearbeitet:

Peter Bönnen

Erfahrenes Mitglied
Da hilft dir die Funktion StringReplace(). Genaueres steht in der Hilfe.

Als Beispiel die Lösung zu deinem konkreten Problem:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var text: String;
begin
   text := Edit1.Text;
   text := StringReplace(text, 'a', 'aba', [rfReplaceAll]);
   text := StringReplace(text, 'e', 'ebe', [rfReplaceAll]);
   text := StringReplace(text, 'i', 'ibi', [rfReplaceAll]);
   text := StringReplace(text, 'o', 'obo', [rfReplaceAll]);
   text := StringReplace(text, 'u', 'ubu', [rfReplaceAll]);
   text := StringReplace(text, 'A', 'Aba', [rfReplaceAll]);
   text := StringReplace(text, 'E', 'Ebe', [rfReplaceAll]);
   text := StringReplace(text, 'I', 'Ibi', [rfReplaceAll]);
   text := StringReplace(text, 'O', 'Obo', [rfReplaceAll]);
   text := StringReplace(text, 'U', 'Ubu', [rfReplaceAll]);
   Edit2.Text := text;
end;
Peter