ersetzen von buchstaben in text

[Pago]

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

 

[Peter Bönnen]

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

Als Beispiel die Lösung zu deinem konkreten Problem:

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

 

[Pago]

Vielen Vielen Dank

das hat mir sehr weiter geholfen

in Hochachtung

Pago