Question

FPS程序是否有可能读取用户输入，然后创建一个文件，其中包含该输入的名称并读取另一个输入，依此类推......？

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

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

P.S。对不起，我的英语能力......

这就是我的尝试：

    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

如果我理解正确，您希望使用loop var对文件名进行编号。这应该有效：

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.

使用FPS创建文本文件数组

1 个答案: