Версия для печати темы

Автор: OS 18.12.2002 18:07

Как правильно передавать имя файла параметром для функции?
Например, как правильно вызвать следующую функцию:

procedure oneArray (str:string); 
var FIn, FOut : text; 
begin 
  assign(FIn,str); 
  assign(FOut,'output.txt'); 
  reset(FIn); 
  rewrite(FOut); 
  for i:=1 to nMax do read(FIn,X[i]); 
  close(FIn); 
  close(FOut); 
end;

Автор: Vit 27.12.2002 2:54

oneArray ('c:myfile.txt');  

Автор: mj 27.12.2002 8:54

Это слишком просто, чтобы быть ответом...
Мне кажется тут спрашивалось о другом...

Автор: Vit 4.01.2003 0:58

Я ж не телепат. В вопросе спрашивалось:

Вот я и ответил на конкретно этот поставленный вопрос