List out of bounds (0)

[Alex Cones]

посмотреть как ты туда пихаешь

Все на виду - пост №14

пустой стринглист тоже записывает один #13

Честно говоря это повергает меня в глубокое смятение.

пошагово пройтись

А смысл? Ведь в файл она пишется одной командой SaveToFile. Я ведь не могу увидеть содержимое, разве что на каждом шаге засовывать все в Memo...

[mutabor]

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

Что мешает удалять последнюю строку если она пуста?

if list[list.count-1]='' then list.delete(list.count-1);

Не не, последние символы переноса это не строка, они содеражатся в конце каждой строки стринглиста, поэтому в конце и происходит перенос. Нужно просто почистить справа (TrimRight вроде) последнюю строку, т.е. убрать служебные символы справа. Если не выйдет с тримом, убирать вручную, либо через Delete либо сократив длину строки с помощью SetLength.

з.ы. И да, там не один символ, а два по идее - #13#10 (0D0A).

[Alex Cones]

там не один символ, а два

Честно говоря даже три (#13#10#27), но последний там должен быть.

TrimRight

Спасибо за прекрасную мысль, mutabor!Буду копать в этом направлении.

Честно говоря не совсем сработало:

TrimRight(List.Strings[List.Count-1]);

Если убрать -1 то получается ошибка, а так последние 1013 не удаляются.
И еще мне пришлось вместо +32-х в коде поставить +33, что-бы не допустить пробела, так как TrimRight удаляет и все пробелы. Но это не столь важно. Функция не справилась. Может как-то по другому записать?

Delete(List.Strings[List.Count-1],Length(List.Strings[List.Count-1]),1);

Выдает непонятную ошибку.

[BOBAH13]

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

Почему еси не секрет?

Потому что перебор по ширине идет начиная с 0 до ширины битмапа -1, а там -1 нет, т.е. получается что перебор в ширину на 1 пиксель больше, что это за магический пиксель, не известно (наверное 0).

Честно говоря я в шоке сколько можно, ощущение что автор темы думать отказывается совершенно.

function Packing(Bit: TBitmap; Path: String): Boolean;
var
  f: TextFile;
  y, x, n: Integer;
  fc, cc: TColor;
  s, sr, sg, sb, h: String;
begin
  Result := False;
  if (Bit.Width = 0) or (Bit.Height = 0) then
    Exit;

  n := 0;
  cc := Bit.Canvas.Pixels[0, 0];

  for y := 0 to Bit.Height - 1 do
  begin
    for x := 0 to Bit.Width - 1 do
    begin
      fc := Bit.Canvas.Pixels[x, y];

      if (fc = cc) then
      begin
        inc(n);
      end else
      begin
        s := IntToHex(cc, 6);
        sr := Copy(s, 5, 2);
        sg := Copy(s, 3, 2);
        sb := Copy(s, 1, 2);
        h := h + 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;
 
  {$I-}
  AssignFile(f, Path);
  ReWrite(f);
  Write(f, h);
  CloseFile(f);
  {$I+}

  Result := True;
end;

Извените за сарказм, но изменился код просто до не узнаваемости Сложно было самому сделать такое ? Что-то еще не устраивает ?

[Alex Cones]

Что-то еще не устраивает ?

Да, не устраивает. Скорость записи 79-ти файлов и то, что все это записывается как одна строка без #10#13
2Модераторы:
Закрываейте тему, пока меня не обвинили в расизме!