ich hab' wohl etwas zu kompliziert gedacht, ich glaube es geht tatsächlich ganz einfach so wie fkerber es vorgeschlagen hat:
Delphi-Quellcode:
while found = false do
begin
If s1=s2 then found:= true else
begin
s2:= Stringreplace(s2, 'ä', 'ä', [rfignoreCase]);
s2:= Stringreplace(s2, 'ü', 'ü', [rfignoreCase]);
s2:= Stringreplace(s2, 'ö', 'ö', [rfignoreCase]);
s2:= Stringreplace(s2, 'ß', 'ß', [rfignoreCase]);
end;
end;
Meine ersten Tests sind ganz verheißungsvoll.
Eigentlich ganz einfach.
Danke!
Gambit