Console spreadsheet для PascalABC.Net: различия между версиями
Содержимое удалено Содержимое добавлено
Нет описания правки |
Нет описания правки |
||
Строка 4:
Uses CRT;
Var
spreadsheet_max_size_X:integer;
spreadsheet_max_size_Y:integer;
symbol:string;
grid:boolean;
Строка 10 ⟶ 12 :
current_spreadsheet_ceil_column_coordinate:integer;
current_spreadsheet_background_color:string;
current_spreadsheet_border_color,current_spreadsheet_text_color:string;
string_spreadsheet:array[0..80,0..80] of string;
int_spreadsheet:array[0..80,0..80] of string;
Строка 29 ⟶ 31 :
Begin
if (current_spreadsheet_text_color<>'red') or (current_spreadsheet_text_color<>'blue') or (current_spreadsheet_text_color<>'yellow') or (current_spreadsheet_text_color<>'green') or (current_spreadsheet_text_color<>'orange') or (current_spreadsheet_text_color<>'black') or (current_spreadsheet_text_color<>'white') then begin CRT.TextBackground(white); CRT.TextColor(Black); Console.System.WriteLine('Function parameter «Console_spreadsheet_set_text_color» receives an invalid value.'); end;
End;
procedure Console_spreadsheet_set_border_color(current_spreadsheet_border_color:string);
Begin
if (current_spreadsheet_border_color<>'red') or (current_spreadsheet_border_color<>'blue') or (current_spreadsheet_border_color<>'yellow') or (current_spreadsheet_border_color<>'green') or (current_spreadsheet_border_color<>'orange') or (current_spreadsheet_border_color<>'black') or (current_spreadsheet_border_color<>'white') then begin CRT.TextBackground(white); CRT.TextColor(Black); Console.System.WriteLine('Function parameter «Console_spreadsheet_set_border_color» receives an invalid value.'); end;
End;
Строка 44 ⟶ 51 :
Begin
Method=1;
End;
Procedure Console_spreadsheet_set_size_for_X_axis(spreadsheet_max_size_X);
Begin
End;
Procedure Console_spreadsheet_set_size_for_Y_axis(spreadsheet_max_size_Y);
Begin
End;
</source>
| |||