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!