Ord für Int64

[Alter Mann]

Hallo

gibt es eine Funktion die ein 'Ord für Int64' ermöglicht bzw. eine alternative hierfür:

Delphi-Quellcode:

  function GetTC(IntStr : String) : Integer;
  var
    I : Integer;
    S : Char; //PWideChar;
  begin
    Result := 0;
    if GetLocaleInfo(GetUserDefaultLangID, LOCALE_STHOUSAND, S, SizeOf(PWideChar)) = 0 then S := '.';

    for I := 1 to Length(IntStr) do
      if Ord(IntStr[I]) = Ord(S) then Inc(Result); // <- geht nicht, da Int64!
  end;

Für Tipps und Hinweise wie immer dankbar

Alter Mann