Открыть текстовый файл в качестве параметра. В том случае, если имя текстового файла...

[Sayli]

Открыть текстовый файл в качестве параметра. В том случае, если имя текстового файла "File.txt", то завершить работу программы с кодом 1. В противном случае записать в файл данные об авторе и завершить работу программы с кодом 0.

помогите пожалуйста

[Alex11223]

В качестве параметра чего? Процедуры\функции? Командной строки? Чем помочь? Что не получается? Что получилось?

[Sayli]

Как я думаю(если правильно) то текстовый файл можно с помощью assign, но как это сделать в качестве параметра? (не с помощью paramstr?) и незнаю как определить имя текстового файла?

[Alex11223]

А почему бы не paramstr? Еще, кстати, вроде есть paramcount для определения числа полученных параметров.

как определить имя текстового файла?

Ну так запускается программа как-нибудь типа путь\program.exe -file.txt
и из параметра (какая-нибудь_строка:=paramstr(1) ) и достается имя файла. Или как надо?

[Sayli]

а имя текстового файла ни как нельзя проверить? используя какие нибудь параметры

[Alex11223]

Можно конечно, причем тут параметр. Параметр только принимается при запуске программы и возвращается в виде строки при вызове paramstr(номер_параметра), больше он ничего не умеет. Дальше уже что угодно можно делать с полученной строкой.
http://www.delphisources.ru/pages/fa...amStr.php.html

[Sayli]

а тут что-то написал, но не знаю как правильно использовать paramstr
program _;
uses crt;
var
f:text;
begin
assign (f,'file.txt');
end;

[Alex11223]

Выше по ссылке наглядный пример.
Перед assign и т.д. по условию задачи же еще надо проверить, что имя не file.txt (например, строка:=paramstr(1) и уже со строкой что-то делать).

[Serge_Bliznykov]

угу. полностью согласен с Alex11223.

позволю себе прокомментировать примером кода:

var f : Text;

{функция для проверки, существует ли файл}
function FileExists(FileName : string) : boolean;
var
  FileParameters : SearchRec;
begin
  FindFirst(FileName,AnyFile,FileParameters);
  if (DosError = 0) { or (DosError = 18)}
    then
      FileExists := True
    else
      FileExists := False;
end;
{-------------------------------------------}

function UpperCase(s : string) : string;
var i : byte; sRes : string;
begin
   sRes := '';
   for i:=1 to Length(s) do sRes := sRes + UpCase(s[i]);
   UpperCase := sRes;
end;

begin
   if ParamCount=0 then begin
     WriteLn('Error: No parametrs found! You must type filename in command line!');
      Halt(10); {завершим работу программы с кодом 0}
   end;   
   if UpperCase(ParamStr(1))='FILE.TXT' then Halt(1);
   Assign(f, ParamStr(1) );
   if FileExists(ParamStr(1) ) 
       then Append(f)
       else Rewrite(f);
   WriteLn(f, 'Author: Pupkin Vasisualiy. (c) 2011');
   Close(f);
   Halt(0);
end.

[Sayli]

Спасибо Вам большое! Буду разбираться