arrays - 使用 FPS 创建文本文件数组

Question

FPS程序是否有可能读取用户输入，然后创建一个具有该输入名称的文件并读取另一个输入等等......？

我试图创建文本文件数组，但遇到了一些问题。

首先，发生了一个错误，即（某些）访问被拒绝，其次，如何创建一个变量位于文本文件名中间的结果文件（我尝试过 assign (Df,'rezult',i,'. txt'); i - 这里正在改变变量，但这样程序不起作用。

PS对不起我的英语语言能力......

这是我尝试过的：

    program testing;
var
    Df : text;
    i:integer;
    SomeUserInput:integer;        
begin
for i:=1 to 10 do
 begin
 Assign(Df,'rez.txt'); Rewrite(Df);
 Read(SomeUserInput);
 WriteLn(Df,'some words + ',SomeUserInput);
 Close(Df);
 end;
Readln;
end.

（修复了第一条评论提示的问题，但现在我的文件中只写了最后一件事，我希望创建 10 个或更多文件）

Answer 1

如果我理解正确，您想用循环变量对文件名进行编号。这应该有效：

program testing;
Uses
  SysUtils;
var
  Df : text;
  i:integer;
  SomeUserInput:integer;        
begin
  for i:=1 to 10 do
  begin
    Assign(Df,'rez'+IntToStr(i)+'.txt'); 
    Rewrite(Df);
    ReadLn(SomeUserInput);
    WriteLn(Df,'some words + ',SomeUserInput);
    Close(Df);
  end;
  Readln;
end.