Is not a valid integer value что за ошибка как исправить

может я вам не так объяснил, кароч я хотел создать типо калькулятор, к каждой кнопке присвоил caption 1, 2, 3, 4, 5, 6, 7, 8, 9, 0 соответственно. Также есть кнопка “/”, “*”, “-“, “+” и “=” (без кавычек конечно), которые должны выполнять действие caption. Вот когда я нажимаю на одну из кнопок то в edit1.text появляется собственно caption нажатой кнопки. Например нажал на кнопку “2” “+” “3”, в edit1.text появился текст 2 + 3, а потом нажимаю на “=”. Вот он должен был мне возвратить 2+3=5, потому что, как я описал выше сначала edit1.text преобразуется в число strtoint(edit1.text), а это в свою очередь присваивается к result, у нас уже это выглядит так
result := strtoint(edit1.text), после этого, result должен посчитать и присвоить значение от 2+3 и вывести на edit1.text (преобразовать целое в строку я не забыл), а он этого не делает и вместо выходит ошибка… Кто понимает, в чем тут проблема?

1

10.07.2017, 04:10. Показов 1533. Ответов 7

1
2
3
4
5
6
7
8
9
10

function strto100x(a : string) : int64;
begin
  if pos(',',a) > 0 then
    if pos(',',a) <= length(a)-2 then
      RESULT := strtoint64(copy(a, 1, pos(',',a)-1) + copy(a, pos(',',a)+1, 2))
    else if pos(',',a) = length(a)-1 then
      RESULT := strtoint64(copy(a, 1, pos(',',a)-1) + copy(a, pos(',',a)+1, 1))*10
         else RESULT := strtoint64(copy(a, 1, pos(',',a)-1))*100
  else result := strtoint64(a)*100;
end;

0

Unfortunately, you have shown code that does not match the error message that you report. Your actual code calls StrToInt rather than IntToStr. I know this because that error message is produced by calls to StrToInt rather than IntToStr.

Your code looks more like this:

UniqueID := StrToInt('2312357250');

Note that StrToInt returns a signed 32 bit integer type. Valid values are in the range -2,147,483,648 to 2,147,483,647. Your value is outside the valid range for Integer, hence the error.

If you want a simple way to side step all these range issues, then use Int64 instead of DWORD or Integer, and call StrToInt64.

Furthermore, these lines are troublesome:

UniqueID := GetTickCount;
LastUniqueID := GetTickCount + 1000;

You make two distinct calls to GetTickCount. These two calls may yield different values. Indeed, if GetTickCount rolls over, then the second call may return a value that is less than the first one.

Yet more troubles surround GetTickCount + 1000. If GetTickCount returns a value close to the upper limit, then you will encounter integer overflow, which may have results that you don’t expect. Use GetTickCount64 to avoid that pitfall.

However, I remain to be convinced that the system tick count can is a good way to generate a unique ID. Depending on your requirements, this may well be a poor solution to your problem, whatever it is. On the face of it, your code appears to preclude requesting a unique ID less than a second later than the previous time you requested one. Of course, without knowing your requirements it is hard to recommend an alternative.