verschachtelte schleifen

[Silentium]

Hi, meine Idee war Folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  buffer, output:string;
  laenge, i:integer;
begin
  output := '';

  laenge := Edit1.GetTextLen;
  buffer := Edit1.Text;

  for i := 1 to laenge do begin
    case buffer[i] of
      'Ä':output := output + 'Ae';
      'ä':output := output + 'ae';
      'Ö':output := output + 'Oe';
      'ö':output := output + 'oe';
      'Ü':output := output + 'Ue';
      'ü':output := output + 'ue';
    else
      output := output + buffer[i];
    end;
  end;

  Edit1.Text := output;
end;

Hoffe, du kannst was mit anfangen.

Gruß Sil