0

FPS プログラムがユーザー入力を読み取り、その入力の名前でファイルを作成し、別の入力などを読み取ることは可能ですか?

テキストファイルの配列を作成しようとしましたが、いくつか問題がありました。

まず、(いくつかの) アクセスが拒否されたというエラーが発生し、次に、変数がテキスト ファイル名の途中にある結果ファイルを作成する方法 (割り当て (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個以上のファイルを作成したいです）

4

1 に答える 1