Почему когда integer cтановиться =100001,выходит ошибка

[Дима я]

Вот код

X:=0;
Y:=100001;

for i:=0 to X do begin
Listbox1.Items.SaveToFile('1.txt');
Listbox1.Items.Clear;
for k:=0 to Y do begin
Form1.Caption:=floatToStr((X-i)/100)+' '+floatToStr(l);
S[l]:=colorToString(Image1.Canvas.Pixels[i,k]);
l:=l+1;
end;
end;

17:46

текст ошибки типа - ..Read of adress FFFFFFF7.Proces stoped..

17:47

Help me plis)

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

Кроме того:
У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор
Согласно правилам - предупреждение за нарушение правил.

[Juffin]

попровуй real вместо integer

[Дима я]

Я пробовал ...та же история...еше пробовал longint тоже самое

[Roof]

2 Дима я - какой-то странный код. Сначала

X:=0;

потом

for i:=0 to X do begin

Вообще какой смысл цикла получается?

for k:=0 to Y do begin
Form1.Caption:=floatToStr((X-i)/100)+' '+floatToStr(l);
S[l]:=colorToString(Image1.Canvas.Pixels[i,k]);
l:=l+1;
end;

А теперь прикинь - сколько раз подряд поменяется заголовок формы? Жуть просто!
Что у тебя такое S[l] - строка или массив?

[Dj_smart]

Что у тебя такое S[l] - строка или массив?

Строкой это не может быть по определению, т.к. в S[l] мы пытаемся записать строку, длина которой может превышать 1 (integer ведь)

[Roof]

ну я имел ввиду, может он в символ строки пытался записать, просто мысль возникла. Не доглядел, согласен.

[rockedit]

какой-то странный код

Действительно, ну какой смысл менять заголовок форы если все равно этого не заметишь? поставь тогда сразу последний если это так надо.

X:=0;
Y:=100001;

for i:=0 to X do begin // цикл от 0 до 0, гениально) убираем..смысла совсенм нет
Listbox1.Items.SaveToFile('1.txt'); { что сохраняем и зачем? кусок кода вырваный непонятно откуда и зачем}
Listbox1.Items.Clear;
for k:=0 to Y do begin
Form1.Caption:=floatToStr((X-i)/100)+' '+floatToStr(l); {
 самое интересное( 0-0)/100? + 0}
S[l]:=colorToString(Image1.Canvas.Pixels[i,k]); //[0,100001] не вижу в этом смысла
l:=l+1;
end;
end;

В чем вообще смысл программы? что она должна делать?

[evg_m]

for k:=0 to Y do begin
Form1.Caption:=floatToStr((X-i)/100)+' '+floatToStr(l);
S[l]:=colorToString(Image1.Canvas.Pixels[i,k]);
l:=l+1;
end;

а если размер Image1 < Y ?!

[Greek9000]

Каковы бы ни были размеры картинки, обращаться с чтением можно к любому пикселю его канвы. В этом можно убедиться так:

procedure TfrmMain.Button1Click(Sender: TObject);
const
  X = 0;
  Y = 1000;
var
  bmp:TBitmap;
  s:string;
begin
  bmp := TBitmap.Create;
  bmp.Width := 100;
  bmp.Height := 100;
  s := ColorToString(bmp.Canvas.Pixels[X, Y]);
  ShowMessage(s);
  bmp.Free;
end;

А вот массив S[l] вызывает подозрения. Либо Вы забыли его инициализировать вообще, либо выделили в нём 1млн. элементов, и пытаетесь обращаться к миллион первому.
(Лично мне кажется, что автор вопроса забыл вызвать SetLength(S, NUM))