Danke Daniel,
das müsste das gesuchte sein, werde es mal einbauen. Wußte ja sowieso schon wie es geht, aber nicht wie.
Das hier war mal eine Funktion, die ich gemacht habe, um so etwas ähnliches zu bereinigen:
Code:
FUNCTION gross (inp : string) : string; (* Achtung : UpCase klappt *)
VAR i : integer; (* nicht bei 'a.ö,ü' *)
BEGIN
FOR i := 0 TO length(inp) DO BEGIN
gross[i] := UpCase(inp[i]);
IF ord(inp[i]) > 122 THEN BEGIN (* 122 = 'z' *)
CASE inp[i] OF
'ä' : gross[i] := 'Ä';
'ö' : gross[i] := 'Ö';
'ü' : gross[i] := 'Ü';
END;
END;
END;
END;
Sieht fast genauso aus, oder?
Gruß
Hansa