ファイルを作成するには？ (ID:15579)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 関数を混同しているようですね。 昔から２種類ありますので、間違いやすい所です。 通常の行単位の処理なら①を使うか、③TStringlistを使います // ① procedure TForm1.Button1Click(Sender: TObject); var F: TextFile; s , FileName : string; begin FileName := '***.TXT'; AssignFile(F, FileName); // 変数に代入 FileMode := fmOpenReadWrite; {ファイルモードの設定 } if FileExists(FileName) then Reset(F) // 開く else Rewrite(F); // 新規作成 // // ここに処理を書く Writeln(F, S); // CloseFile(F); // 閉じる end; // ② procedure TForm1.Button2Click(Sender: TObject); var FileHandle: Integer; s , FileName : string; begin FileName := '***.TXT'; if FileExists(FileName) then FileHandle := FileOpen(FileName, fmOpenReadWrite) // 開く else FileHandle := FileCreate(FileName,fmOpenReadWrite); // // ここに処理を書く FileWrite(FileHandle, s, SizeOf(s)); // FileClose(FileHandle); end; // ③ procedure TForm1.Button3Click(Sender: TObject); var SList : TStringList; s , FileName : string; begin FileName := '***.TXT'; SList := TStringList.Create; try if FileExists(FileName) then SList.LoadFromFile(FileName); // 開く // // ここに処理を書く SList.Add(s); // SList.SaveToFile(FileName); finally SList.Free; end; end;