Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.10.2012, 16:50   #1
Evgenuych96
Пользователь
 
Регистрация: 07.10.2012
Сообщений: 37
Вопрос Системные команды, цвет букв.

Здравствуйте, дабы не создавать 2 темы я решил спросить все в 1й.
1.Как отправлять команды ОС?
В Python это делалось просто os.system('команда консоли')
А какую функцию необходимо использовать в Pascal?
2.Как менять цвет букв?
Какой нужен модуль и какие у него функции для этого?
Если это важно то я пользуюсь компилятором Free Pascal в ОС Linux.
Заранее спасибо!
P.s.После синтаксиса Python синтаксис Pascal кажется жутко страшным
Evgenuych96 вне форума Ответить с цитированием
Старый 08.10.2012, 03:39   #2
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Что ты имеешь в виду под системными командами? Если обычные всякие ls, cd, cat и т.п. - то это просто программы, и запускать их можно обычным форком. Форк есть, причем, даже не в одном модуле. Например, в oldlinux есть fork(), а также в baseunix есть fpFork(). Также есть и другие средства (типа execve в oldlinux и fpExecv в baseunix).

Документацию лучше всего смотреть на родном сайте, http://www.freepascal.org/docs-html/rtl/index.html
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 08.10.2012, 03:56   #3
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Отвечаю на второй вопрос (считаю, что он заслуживает отдельной темы, которую поленился создать любитель пресмыкающихся - но раз уж так, то хоть в отдельном посте).

Во-первых, в FP есть "старый добрый" CRT. Поэтому никто не мешает сделать так:
Код:
uses CRT;

begin
  writeln('white text');
  TextColor(LightRed);
  writeln('red text');
  TextBackground(Green);
  writeln('red on green');
  readln
end.
А во-вторых, там есть модуль video. С ним работать несколько сложнее для новичков (в нем нет процедур типа тех, что я употребил в примере выше), но возможностей больше, а также он не тащит за собой все побочные эффекты CRT (злого и ужасного). Работа с этим модулем подробно объясняется все там же, на оф.сайте.
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 09.10.2012, 16:56   #4
Evgenuych96
Пользователь
 
Регистрация: 07.10.2012
Сообщений: 37
По умолчанию

Спасибо большое!
Цвет заработал а вот fork нет
код выглядит так:
Код:
uses
	crt,oldlinux;
var x:char;
begin
	textcolor(red);
	writeln('Красный цвет!');
	textcolor(white);
	writeln('Для выхода нажмите Enter');
	read(x);
	fork('clear');
end.

Выхлоп выглядит так:
Цитата:
fpc "colour.pas" (в каталоге: /home/admin-linux/D/programing)
Free Pascal Compiler version 2.4.4-2ubuntu1 [2011/09/27] for i386
Copyright (c) 1993-2010 by Florian Klaempfl
Target OS: Linux for i386
Compiling colour.pas
Fatal: Can't find unit oldlinux used by Program
Fatal: Compilation aborted
Сборка завершилась с ошибкой.
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
Что я сделал не так?
Evgenuych96 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Можно ли в консоле поменять цвет букв и цифр Endrels Общие вопросы C/C++ 2 14.08.2010 20:14
Каким образом можно изменять цвет фона и цвет шрифта в Label? jungle Win Api 17 21.09.2009 00:38
Как с помощью JavaScript изменить цвет фона ячеек в таблице,так что бы можно было выбрать цвет из списка Gotessa JavaScript, Ajax 1 09.05.2009 16:05
Где можно прочитать про все системные коды, и команды для Delphi PROFI_I Компоненты Delphi 3 18.02.2009 21:47
Системные пути Lonix Общие вопросы Delphi 8 14.09.2007 17:10