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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2013, 19:33   #1
ЮляЮлия
Пользователь
 
Регистрация: 24.11.2013
Сообщений: 13
По умолчанию Комментарии к коду

Всем доброго времени суток! Помогите пожалуйста разобраться с процедурой!!! Закомментируйте ее!Пожалуйста!
Код:
procedure Cat(comq:string); {Просмотр Содержимое файла}
var fname,fname2:string;
    b:string;
    f:text;
    p,Flag:boolean;
    k,f2,i:integer;
begin
 if error(comq) then exit;
 delete(comq,1,4);
 f2:= 0;
  if pos(' ',comq) = 0 then fname:= comq
                       else
   begin
    f2:= 1;
    fname:= copy(comq,1,pos(' ',comq) - 1);
    fname2:= copy(comq,pos(' ',comq) + 1, length(comq) - pos(' ',comq));
   end;
 if (fname = '-') or (fname = '') then
 fname:= 'con';
  repeat
   if f2 = 2 then f2:= 0;
  {$I-} assign(f, fname); reset(f); {$I+}
  if IOResult <> 0 then
   begin
    writeLn('Неверное имя файла!');
    exit;
   end;
 k := 0;
 while not EOF(f) do
  begin
   readLn(f,b);
   k:= k + 1;
   writeLn(sf, b);
  end;
 close(f);
  if f2 = 1 then
  begin
   fname:= fname2;
   f2:= 2;
  end;
 until f2 = 0;
end;

Последний раз редактировалось Stilet; 19.12.2013 в 11:03.
ЮляЮлия вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Комментарии к коду ЮляЮлия Паскаль, Turbo Pascal, PascalABC.NET 2 24.11.2013 14:50
Комментарии к коду KrotikDJ Помощь студентам 0 10.06.2013 19:59
комментарии к коду Mishka2039 Паскаль, Turbo Pascal, PascalABC.NET 4 11.04.2013 09:36
Комментарии к коду Juhn Паскаль, Turbo Pascal, PascalABC.NET 6 24.12.2007 20:29
Комментарии к коду Ярослав Помощь студентам 4 23.11.2007 16:57