Здравствуйте!
Появилась проблема, с которой в силу скудности познаний сам справится не смог.
Имеется строковый параметр, состоящий из, скажем 11 цифр. Нужно преобразовать его в цифру. Казалось бы чего проще:
Но не тут то было! Больше 8 знаков преобразовывать не хочет ни в какую. В дельфи в таком случае можно было попробовать воспользоваться функцией StrToInt64, но в Inno такого нет!
В своё время Андрей написал функцию для примера IsMd5:
но опять же у меня не хватило познаний (а может и мозгов), что бы это приспособить. Надеюсь, я ясно изложил проблему. Люди добрые, поможите, чем сможите!
Появилась проблема, с которой в силу скудности познаний сам справится не смог.
Имеется строковый параметр, состоящий из, скажем 11 цифр. Нужно преобразовать его в цифру. Казалось бы чего проще:
Код:
StrToInt('97298061918');
В своё время Андрей написал функцию для примера IsMd5:
Код:
function Size64(Hi, Lo: Integer): Extended;
begin
Result:= Lo;
if Lo<0 then Result:= Result + $7FFFFFFF + $7FFFFFFF + 2;
for Hi:= Hi-1 Downto 0 do
Result:= Result + $7FFFFFFF + $7FFFFFFF + 2;
end;
function GetFileSize(const FileName: string): Extended;
var
FSR: TFindRec;
begin
Result:= 0;
if FindFirst(FileName, FSR) then
try
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
Result:= Size64(FSR.SizeHigh, FSR.SizeLow) div 1048576;
finally
FindClose(FSR);
end;
end;