ファイルを作成するには？ (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;

←解決時は質問者本人がここをチェックしてください。

戻る