Console spreadsheet для PascalABC.Net: различия между версиями
Содержимое удалено Содержимое добавлено
Нет описания правки |
Нет описания правки |
||
Строка 87:
// end
// вывод таблицы
current_spreadsheet_ceil_string_coordinate:=0;
current_spreadsheet_ceil_column_coordinate:=0;
For start:=1 to spreadsheet_max_size_Y do
Begin
Строка 106 ⟶ 107 :
// вывод значения ячейки
Write(string_spreadsheet[current_spreadsheet_ceil_string_coordinate,current_spreadsheet_ceil_column_coordinate])
// вывод значения ячейки
// вывод пробелов до столбца
For start3:=1 to Max_values_in_spreadsheet[current_spreadsheet_ceil_string_coordinate] do
Begin
Write('' ');
End;
// вывод пробелов до столбца - end
// установка цвета столбца
if (current_spreadsheet_border_color='red') then CRT.TextColor(red);
if (current_spreadsheet_border_color='blue') then CRT.TextColor(blue);
if (current_spreadsheet_border_color='yellow') then CRT.TextColor(yellow);
if (current_spreadsheet_border_color='green') then CRT.TextColor(green);
if (current_spreadsheet_border_color='orange') then CRT.TextColor(orange);
if (current_spreadsheet_border_color='black') then CRT.TextColor(black);
if (current_spreadsheet_border_color='white') then CRT.TextColor(white);
// установка цвета столбца - end
Write('|');
current_spreadsheet_ceil_string_coordinate:=current_spreadsheet_ceil_string_coordinate+1;
| |||