Юбилей

[Arigato]

Немного оптимизировал выдаваемый код:

procedure TForm1.Button2Click(Sender: TObject);
var
  f: TextFile;
  i, j: Integer;
  pic, oldcol, col, s: String;
  BM: TBitmap;
  PA: PPicArray;
begin
 if SaveDialog1.Execute then begin
    AssignFile (f, SaveDialog1.FileName);
    Rewrite (f);

    BM := Image1.Picture.Bitmap;
    BM.PixelFormat := pf32bit;

    SetLength (pic, ComboBox1.ItemIndex+1);
    for i := 1 to Length(pic) do
      pic[i] := #45;

    oldcol := '';
    if RadioButton1.Checked then begin
      for i := 0 to BM.Height-1 do begin
        PA := BM.ScanLine[i];
        for j := 0 to BM.Width-1 do begin
          col := Format ('%x', [PA[j]]);
          if col <> oldcol then
          begin
            if oldcol <> ''
                then s := '[/COLOR]'
                else s := '';
            s := s + '[COLOR=#' + col + ']' + pic;
            oldcol := col;
          end else s := pic;
          Write (f, s);
        end;
        Writeln (f);
      end;
      s := '[/COLOR]';
      Write (f, s);
    end
    else begin
    end;
    CloseFile (f);
  end;
end;

Зачем открывать тег COLOR, если цвет не меняется?

P.S. Идея, как еще оптимизировать: находим самое часто встречающийся цвет на картинке и делаем общий тег COLOR на всю картинку. Теперь для создания пикселей данного цвета не надо писать нового тега COLOR, достаточно просто закрыть текущий.