Delphi-Quellcode:
function GetTC(IntStr : String) : Integer;
var
I : Integer;
C : Array[0..1] of Char;
begin
Result := 0;
if GetLocaleInfo(GetUserDefaultLangID, LOCALE_STHOUSAND, @C, 2) = 0 then C[0] := '.';
for I := 1 to Length(IntStr) do
if IntStr[I] = C[0] then Inc(Result);
end;
Auch wenn der Compiler die ORDs quasi wegoptimiert ... es sind beides CHARs, also kann man diese direkt vergleichen
und der Compiler bemeckert das fehlende @ nicht?
(bei mir lpLCData ein PChar)