Console spreadsheet для PascalABC.Net: различия между версиями

Содержимое удалено Содержимое добавлено
Нет описания правки
Нет описания правки
Строка 71:
string_spreadsheet[current_spreadsheet_ceil_string_coordinate,current_spreadsheet_ceil_column_coordinate]:=current_spreadsheet_ceil_content;
End;
current_spreadsheet_ceil_string_coordinate:=0;
// redraw part
current_spreadsheet_ceil_column_coordinate:=0;
// сбор макс. значений таблицы в столбцах
// begin
For start:=1 to spreadsheet_max_size_X do
Begin
 
// поиск максимального значения в столбце
forFor Startstart2:=1 to spreadsheet_max_size_Xspreadsheet_max_size_Y do
Begin
If (string_spreadsheet[current_spreadsheet_ceil_string_coordinate,current_spreadsheet_ceil_column_coordinate]>Max_value_in column) then begin Max_value_in column:=string_spreadsheet[current_spreadsheet_ceil_string_coordinate,current_spreadsheet_ceil_column_coordinate]; current_spreadsheet_ceil_column_coordinate:=current_spreadsheet_ceil_column_coordinate+1; end else begin current_spreadsheet_ceil_column_coordinate:=current_spreadsheet_ceil_column_coordinate+1; end;
for Start:=2 to spreadsheet_max_size_Y do
End
Max_values_in_spreadsheet[current_spreadsheet_ceil_string_coordinate]:=Max_value_in column;
current_spreadsheet_ceil_string_coordinate:=current_spreadsheet_ceil_string_coordinate+1;
End;
// end
// вывод таблицы
 
forFor Startstart:=21 to spreadsheet_max_size_Y do
Begin
// тут остановился
If (length(string_spreadsheet[current_X_ceil_adress,current_Y_ceil_adress])>Max_value_in column) then
 
Begin Max_values_in_spreadsheet[current_X_ceil_adress]:=string_spreadsheet[current_X_ceil_adress,current_Y_ceil_adress]; current_Y_ceil_adress:=current_Y_ceil_adress+1; end;
For start2:=1 to spreadsheet_max_size_X do
Begin // здесь
// назначение цвета для вывода значния ячейки
// вывод пробелов до столбца
// установка цвета столбца
Write('|');
End;
// Переход к следующей строке
End;
 
current_X_ceil_adress:=current_X_ceil_adress+1;
current_Y_ceil_adress:=0;
End;
end.