Подскажите с числами

@gerasim99 · Регистрация: 17.12.2013

Delphi

var
 i: Integer;
begin
for i:= 151000000000 to 151000000100 do
Memo1.Lines.Add(IntToStr(i));

выводит в мемо от 676144640 до 676144740. далжно от 151000000000 до 151000000100.

@U_Dimas · 17.12.2013, 19:17

Вроде так:

Delphi

var
 i,i2:int64;
begin
i:= High(int64);
i2:= High(int64);
i:=   151000000000;
i2 := 151000000100;
while i<=i2 do
begin
Memo1.Lines.Add(IntToStr(i));
inc (i);
 
end;
end;

Добавлено через 23 минуты

Сообщение от U_Dimas

i:= High(int64);
i2:= High(int64)

Упс, вот эти две строчки не нужны

@gerasim99 · 17.12.2013, 20:00 **[ТС]**

спасибо. сделал. хотел еще сделать вот так:

Delphi

1 2	i:= strtoint(edit1.text); i2:= strtoint(edit2.text);

пишет ошибка: "151000000000" is not a valid integer value.

@U_Dimas · 17.12.2013, 20:07

Delphi

1	i:= StrToInt64 (Edit1.Text);

@AHBAR · 18.12.2013, 07:46

Сообщение от gerasim99

спасибо. сделал. хотел еще сделать вот так:

Delphi

1 2	i:= strtoint(edit1.text); i2:= strtoint(edit2.text);

пишет ошибка: "151000000000" is not a valid integer value.

Integer не поддерживает такое большое число (151000000000)
Диапазон Integer от -2 147 483 648 до + 2 147 483 647
У Int64 от -(2^63), до +(2^63-1) как раз что тебе нужно

Опции темы