Peinlich
Aber wie immer, sehr Zielführend!
Mache es jetzt so:
Delphi-Quellcode:
function GetTC(IntStr : String) : Integer;
var
I : Integer;
S : Array[0..1] of Char;
begin
Result := 0;
if GetLocaleInfo(GetUserDefaultLangID, LOCALE_STHOUSAND, S, 2) = 0 then S[0] := '.';
for I := 1 to Length(IntStr) do
if Ord(IntStr[I]) = Ord(S[0]) then Inc(Result);
end;