Buchstaben ersetzen

[Ricoo]

Danke. Habs gerade hinbekommen.

Hab das so gemacht und siehe da, es funktioniert. =D

Delphi-Quellcode:

  if OpenDialog1.Execute Then
    begin
      AssignFile(Datei, OpenDialog1.FileName);
      Reset(Datei);

      While not EOF(Datei) do Begin
        Readln(datei,Zeile);
        Memo1.Lines.Add(Zeile);
      end;
      closeFile(datei);
  end;

  for i:= 0 to (Memo1.Lines.Count - 1) do
    begin
      zeile := Memo1.Lines[i];

      if zeile <> '' then
        begin
          for j:= 0 to length(zeile) do
            begin

              case zeile[j] of
                'ä': Zeile := UmlWandeln(zeile ,j);
                'ö': Zeile := UmlWandeln(zeile ,j);
                'ü': Zeile := UmlWandeln(zeile ,j);
              end;

            end;

          Memo2.Lines.Add(Zeile);
        end;

    end;

Und die Funktion...

Delphi-Quellcode:

Function UmlWandeln(umlZeile: String; Stelle: Integer):String;
begin

  if Form1.CheckBox1.Checked then
    begin
      if umlZeile[Stelle]= 'ä' then
        begin
          umlZeile[Stelle] := 'a';
          insert('e', umlZeile, Stelle + 1);
        end;
    end;

  if Form1.CheckBox2.Checked then
    begin
      if umlZeile[Stelle]= 'ö' then
        begin
          umlZeile[Stelle] := 'o';
          insert('e', umlZeile, Stelle + 1);
        end;
    end;

  if Form1.CheckBox3.Checked then
    begin
      if umlZeile[Stelle]= 'ü' then
        begin
          umlZeile[Stelle] := 'u';
          insert('e', umlZeile, Stelle + 1);
        end;
    end;


Result:= umlZeile;
end;

Danke an Alle!