текстовый файл

[DRAgon™]

У вас имеется текстовый файл из произвольного числа строк. Организуйте вывод этого файла на экран векторным шрифтом.организуйте управление с клавиатуры: пролистывание текста, выбор шрифта, выбор цвета шрифта и фона.
Мой вопрос
А можно ли выводить графический модуль в файл? Или в задании имеется в ввиду ,что текстовый файл, это сам экран паскаля.

[Smitt&Wesson]

Сообщение от DRAgon™

Мой вопрос
А можно ли выводить графический модуль в файл? Или в задании имеется в ввиду ,что текстовый файл, это сам экран паскаля.

На счёт "графического модуля" это чё прикол?
Графический модуль - это внешняя процедура подключаемая к исходному коду, если необходима работа с графикой. Обычно имеет название Graphics.

У паскаля нет экрана - это компилятор.
В общем смысле файл - это некая, непрерывная последовательность байтов (битов) находящаяся в памяти или на диске компьютера.
Текстовый файл (обычно расширение TXT) - это послетовательносто символов с кодировками KOI-7, KOI-8, ANSI, ASCII и так далее. Почти во всех кодировках строки разделены символами 0xA (перевод строки) или 0xD (перевод каретки).
Стандартные текстоаве файлы паскаля INPUT и OUTPUT с символом "конец строки" (EOL).

Функция печати содержимого внешнего файла имеет обычно такой вид:
PROGRAM L10T2 (OUTPUT, X);
VAR CH:CHAR;
X:FILE OF CHAR;
BEGIN WRITE(' ');
RESET (X); WRUTE NOT EOF(X) DO
BEGIN
WRITE NOT EOL(X) DO
BEGIN READ(X,CH); WRITE(CH) END;
END
END.

[Stilet]

В задании сказано что тебе нужно прочитать файл и вывести его на экран подключив один из шрифтов паскаля например Goth.chr

uses graph;
var g,m:integer; f:text;s:string;
begin
 g:=ega;
 m:=egahi;
 initgraph(g,m,'..\bgi\egavga.bgi');
 assign(f,'outtextf.pas');reset(f);
 g:=0;
 while not eof(f) do begin
  readln(f,s);
  outtextxy(10,g,s);
  g:=g+10;
 end;
 readln;
end.

А твоя задача прикрутить к этому постановку шрифта - и в этом деле тебе поможет гугл, на запрос "RegisterBGIFont в примерах"

[Serge_Bliznykov]

Вот пример.
без управления! Без возможности смены шрифта, фона и т.д...

просто пример, чтобы понять, что от Вас хотят.

uses graph;
var g,m:integer; f:text;s:string;
  font : integer;
begin
  font:=installuserfont('trip');
  if GraphResult <> grOk then
  begin
    Writeln('Error installing TestFont (using DefaultFont)');
    Readln;
  end;
 initgraph(g,m,'');
 assign(f,'ShowT.pas');
 reset(f);
 settextstyle(font,0,2);
 g:=0;
 while not eof(f) do begin
  readln(f,s);
  outtextxy(10,g,s);
  g:=g+20;
 end;
 readln;
 CloseGraph;
end.

[DRAgon™]

Всем спасибо,все понял