Drei Chinesen mit dem Kontrabass

[vlees91]

Pseudo Code

Delphi-Quellcode:

function ersetzInString(text: String, vokal: Char): String;
var
  position: integer;
  vokale: array['a', 'e', 'i', 'o', 'u'] of Char;
  neuerText: string;
begin
  neuerText := '';
  for position := 1 to count(text) - 1 do
  begin
    if text[position] not in vokale then              //ist das kein Vokal? (warum kein? weil man normalerweise das ins if setzt, was am oeftesten passiert
      neuerText := neuerText + text[position]         //alter Buchstabe dran; ACHTUNG siehe unten
    else                                              //und hier was weniger oft passiert
      neuerText := neuerText + vokal;                 //neuer Vokal dran; ACHTUNG siehe unten
  end;
  result := neuerText;                                   //zurueckgeben
end;

hab seit langem nicht mit Delphi gearbeitet und da ich auch grade keins hier hab weiss ich niccht ob das hier funktionieren wird.

bei dem ACHTUNG: hier muss man um das text[position] bzw. vokal ein String(...) setzen, da es sonst ein inkompatibeler Typ ist (String und Char).