Umlaute in Windows

[Hansa]

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