TColor -> Integer

[Katus]

Как перевести тип TColor в Integer в D7? =.

[Пепел Феникса]

Делфи не паскаль конечно...

но вообще TColor это и есть Integer.

[Katus]

я пробовал записать TColor в текстовый файл, но мне компилятор выдал ошибку...-_-

[Пепел Феникса]

какую ошибку?

я спокойно переводил цвет в строку, когда работал в БД.

[Katus]

уже не помню... разозлился и выключил.... помню, что в строке

      writeln(f, image1.canvas.pixels[i,j]);

[Пепел Феникса]

попробуйте руками перевести в строку через IntToStr.

[Serge_Bliznykov]

на крайний случай TColor <-> Integer можно приводить друг к другу через прямое приведения типов. типа так:

Integer( image1.canvas.pixels[i,j])  );

Только я думаю, что ошибка была в чём-то другом.
сейчас для проверки набросал простенький кодик, всё компилится/работает без проблем!

var f : TextFile;
  i, j : integer;
begin
  i:=0; j:=0;
  AssignFile(f, 'nul');
  Rewrite(f);
  writeln(f, canvas.pixels[i,j]);
  CloseFile(f);
end;