Console spreadsheet для PascalABC.Net: различия между версиями
Содержимое удалено Содержимое добавлено
Нет описания правки |
Нет описания правки |
||
Строка 95:
Begin // здесь
// назначение цвета для вывода значния ячейки
if (current_spreadsheet_text_color='red') then CRT.TextColor(red);
if (current_spreadsheet_text_color='blue') then CRT.TextColor(blue);
if (current_spreadsheet_text_color='yellow') then CRT.TextColor(yellow);
if (current_spreadsheet_text_color='green') then CRT.TextColor(green);
if (current_spreadsheet_text_color='orange') then CRT.TextColor(orange);
if (current_spreadsheet_text_color='black') then CRT.TextColor(black);
if (current_spreadsheet_text_color='white') then CRT.TextColor(white);
// назначение цвета для вывода значния ячейки - end
// вывод значения ячейки
string_spreadsheet[current_spreadsheet_ceil_string_coordinate,current_spreadsheet_ceil_column_coordinate]
// вывод значения ячейки
// вывод пробелов до столбца
// установка цвета столбца
Write('|');
current_spreadsheet_ceil_string_coordinate:=current_spreadsheet_ceil_string_coordinate+1;
End;
// Переход к следующей строке
current_spreadsheet_ceil_column_coordinate:=current_spreadsheet_ceil_column_coordinate+1;
End;
| |||