Delphi-Quellcode:
function CheckIt(AText: string): boolean;
var i: integer;
begin
result := true;
for i:=1 to length(AText) do
begin
if not (AText[i] in ['a'..'z']) then //menge entsprechend anpassen
begin
result := false;
break;
end:
end;
end;
würd mir spontan einfallen dazu
aeno
edit: sorry, hab zu spät gelesen, dass du einen korrigierten string haben möchtest. inwiefern korrigiert? ungültige zeichen löschen?