1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

function TForm_fotograf.umlauteErsetzen(s:string):string;
var i,mycount:integer;
begin

mycount := length(s);
for i:=1 to mycount do begin

if s[i] = 'ä'
then begin
Delete(s,i,1);
Insert('ae',s,i);
mycount := mycount+2;
end;
if s[i] = 'ö'
then begin
Delete(s,i,1);
Insert('oe',s,i);
mycount := mycount+2;
end;
if s[i] = 'ü'
then begin
Delete(s,i,1);
Insert('ue',s,i);
mycount := mycount+2;
end;
if s[i] = 'ß'
then begin
Delete(s,i,1);
Insert('ss',s,i);
mycount := mycount+2;
end;

end;
Result := trim(s);

end;					

1:

function TForm_fotograf.umlauteErsetzen(s:string):string;