List out of bounds (0)

[Alex Cones]

Есть код:

Procedure Packing(Bit:TBitMap; Path:String);
 Var
  CC,FC:TColor;
  X,Y,N:Integer;
  List:TStringList;
  SR,SG,SB,SColor:String;
 Begin
  List:=TStringList.Create;
  N:=0;
  CC:=Bit.Canvas.Pixels[0,0];
  For Y:=0 to 99 do
   Begin
    For X:=0 to 149 do
     Begin
      FC:=Bit.Canvas.Pixels[X,Y];
      If FC = CC Then
       Begin
        Inc(N);
       End
      Else
       Begin
        SColor:=IntToHex(CC,6);
        SR:=Copy(SColor,5,2);
        SG:=Copy(SColor,3,2);
        SB:=Copy(SColor,1,2);
        List.Strings[Y]:=List.Strings[Y]+
         Chr(N+32)+                   {N - количество}
         Chr(Round(StrToInt('$'+SB)/4+32))+  {B - канал}
         Chr(Round(StrToInt('$'+SG)/4+32))+  {G - канал}
         Chr(Round(StrToInt('$'+SR)/4+32));  {R - канал}
         N:=1;
         CC:=FC;
       End;
     End;
   End;
  List.SaveToFile(Path);
  List.Free;
 End;

При запуске и посылке процедуре параметров вылезает List out of bounds (0) . Пробовал изменять строку

  For Y:=0 to 99 do

на

  For Y:=1 to 100 do

Тогда появляется List out of bounds (100).
Что делать?

[BOBAH13]

Как я понимаю из логики вашего кода, вам надо было написать вместо этого

List.Strings[Y]:=List.Strings[Y]+
         Chr(N+32)+                   {N - количество}
         Chr(Round(StrToInt('$'+SB)/4+32))+  {B - канал}
         Chr(Round(StrToInt('$'+SG)/4+32))+  {G - канал}
         Chr(Round(StrToInt('$'+SR)/4+32));  {R - канал}

это

List.Add(
         Chr(N+32)+                   {N - количество}
         Chr(Round(StrToInt('$'+SB)/4+32))+  {B - канал}
         Chr(Round(StrToInt('$'+SG)/4+32))+  {G - канал}
         Chr(Round(StrToInt('$'+SR)/4+32)));  {R - канал}

Edit:
В таком случае что-то вроде этого:

var
List: String;
f: TextFile;
....
begin
....
for ....
begin
  List := List + 
         Chr(N+32)+ {N - количество}
         Chr(Round(StrToInt('$'+SB)/4+32))+  {B - канал}
         Chr(Round(StrToInt('$'+SG)/4+32))+  {G - канал}
         Chr(Round(StrToInt('$'+SR)/4+32));  {R - канал}
...
end;
{$I-}
AssignFile(f, Path);
ReWrite(f);
Write(f, s);
CloseFile(f);
{$I+}

и пожалуйста, в следующий раз опишите условия ваши, а то вопрос ведь звучал вовсе не так ?!

[Alex Cones]

List.Add(
Chr(N+32)+ {N - количество}
Chr(Round(StrToInt('$'+SB)/4+32))+ {B - канал}
Chr(Round(StrToInt('$'+SG)/4+32))+ {G - канал}
Chr(Round(StrToInt('$'+SR)/4+32))); {R - канал}

Не подойдет, так как мне нужно добавлять это к строке.

[Stilet]

Надо же до размеров Битмапа цикл гнать:

 For Y:=0 to  do Bit.width...

[Alex Cones]

Битмап как раз 150*100.

{$I-}
AssignFile(f, Path);
ReWrite(f);
Write(f, s);
CloseFile(f);
{$I+}

Уберу Стринглисты,сделаю это.

[Stilet]

ТОгда дайствительно это:

List.Strings[Y]:=List.Strings[Y]+

ты здря. Лучче уж так:

 if List.count>y then List.Strings[Y]:=List.Strings[Y]+

[BOBAH13]

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

ТОгда дайствительно это:
ты здря. Лучче уж так:

 if List.count>y then List.Strings[Y]:=List.Strings[Y]+

Ну в первом правильно, лучше не свои числа вбивать а сделать как было сказано

for y:= 0 to Bit.Height - 1 do
for x:= 0 to Bit.Width - 1 do

To Stilet:
Это условие никогда не будт тру список создается пустой, соотвественно всегда Если 0 больше числа которое само 0 и выше , т.к. не вижу места в коде где List.Add или List.Insert

Edit:
to Stilet:
1. Причем тут List ?

if List.count>y then List.Strings[Y]:=List.Strings[Y]+

Может я чего-то не пойму, ну тут вроде условие с List ?!
2. Не понял??? Bit же не создается в этой функе. ? Посмотрите параметры/аргументы процедуры

Procedure Packing(Bit:TBitMap; Path:String);

[Stilet]

Это условие никогда не будт тру

Не понял??? Bit же не создается в этой функе.
Причем тут List? Я не о нем говорю.

[Alex Cones]

for y:= 0 to Bit.Height - 1 do
for x:= 0 to Bit.Width - 1 do

Не пашет, та же самая ошибка, буду записывать построчно, через AssignFile

[Stilet]

Procedure Packing(Bit:TBitMap; Path:String);
 Var
  CC,FC:TColor;
  X,Y,N:Integer;
  List:TStringList;
  SR,SG,SB,SColor:String;
 Begin
  List:=TStringList.Create;
  N:=0;
  CC:=Bit.Canvas.Pixels[0,0];
  For Y:=0 to bit.height do
   Begin 
List.add(''); // Обрати вниманеи сюда
    For X:=0 to bit.width do
     Begin
      FC:=Bit.Canvas.Pixels[X,Y];
      If FC = CC Then
       Begin
        Inc(N);
       End
      Else
       Begin
        SColor:=IntToHex(CC,6);
        SR:=Copy(SColor,5,2);
        SG:=Copy(SColor,3,2);
        SB:=Copy(SColor,1,2);
        List.[list.count-1]:=List.[list.count-1]+ // И сюда
         Chr(N+32)+                   {N - количество}
         Chr(Round(StrToInt('$'+SB)/4+32))+  {B - канал}
         Chr(Round(StrToInt('$'+SG)/4+32))+  {G - канал}
         Chr(Round(StrToInt('$'+SR)/4+32));  {R - канал}
         N:=1;
         CC:=FC;
       End;
     End;
   End;
  List.SaveToFile(Path);
  List.Free;
 End;

Увидел ошибку?