delphi自己带了StrToInt 的方法，但是因为目标变量是cardinal的（timer.interval）,所以strtoint 不够，而strtoInt64又超过了
怎么办呢

Function StrToCardinal(Const S: String): Cardinal;
Begin
If not TryStrToCardinal(S, Result) Then
Raise EConvertError.Create(Format('''%s'' n''est pas une valeur entière correcte', [S]));
End;
Function StrToCardinalDef(Const S: String; Default: Cardinal): Cardinal;
Begin
If not TryStrToCardinal(S, Result) Then Result := Default;
End;

Function TryStrToCardinal(Const S: String; out Value: Cardinal): Boolean;
Var
tmpInt: Int64;
Begin
Result := False;
If TryStrToInt64(S, tmpInt) Then
If not ((tmpIntHigh(Cardinal))) Then
begin
Value := tmpInt;
Result := True;
Exit;
end;
End;

有些字不見了，請看http://www.delphifr.com/forum/sujet-CONVERTIR-STRING-CARDINAL_806556.aspx有正確的程式碼

編輯記錄