Vokale entfernen

[DeddyH]

Ich würde das ja ganz anders machen, allerdings habe ich dann kein Delete drin *g*:

Delphi-Quellcode:

function WithoutVocals(const s: string): string;
var SrcIndex, DestIndex: integer;
begin
  SetLength(Result, Length(s));
  DestIndex := 0;
  for SrcIndex := 1 to Length(s) do
    if not (Upcase(s[SrcIndex]) in ['A','E','I','O','U']) then
      begin
        inc(DestIndex);
        Result[DestIndex] := s[SrcIndex];
      end;
  SetLength(Result, DestIndex);
end;