📜  创建文本文件 delphi (1)

📅  最后修改于: 2023-12-03 14:50:15.745000             🧑  作者: Mango

创建文本文件 Delphi

在 Delphi 中创建文本文件非常简单,您可以使用标准 Pascal 文件处理程序来创建、读取和写入文本文件。此外,Delphi 还提供了一些简便的方法来创建和修改文件。

基本文件处理
创建文本文件

使用 AssignFileReWriteCloseFile 过程可以创建新的文本文件。以下是创建新的文本文件的示例代码。

var
  MyFile: TextFile;
begin
  AssignFile(MyFile, 'C:\MyTextFile.txt'); // 指定文件路径和名称
  ReWrite(MyFile); // 创建新文件
  CloseFile(MyFile); // 关闭文件
end;

在上述代码中,AssignFile 过程用于指定文件路径和名称,ReWrite 过程用于创建新文件,而 CloseFile 过程用于关闭文件。

写入内容到文本文件

使用 WriteLn 过程可以向文本文件写入新行。以下是向文本文件插入新行的示例代码。

var
  MyFile: TextFile;
begin
  AssignFile(MyFile, 'C:\MyTextFile.txt'); // 指定文件路径和名称
  ReWrite(MyFile); // 创建新文件

  WriteLn(MyFile, '第一行');
  WriteLn(MyFile, '第二行');

  CloseFile(MyFile); // 关闭文件
end;

在上述代码中,WriteLn 过程用于向文件写入具有换行符的新行。

读取文件

使用 Reset 过程可以打开现有的文本文件。以下是读取文本文件内容的示例代码。

var
  MyFile: TextFile;
  MyLine: string;
begin
  AssignFile(MyFile, 'C:\MyTextFile.txt'); // 指定文件路径和名称
  Reset(MyFile); // 打开现有文件

  while not Eof(MyFile) do
  begin
    ReadLn(MyFile, MyLine);
    ShowMessage(MyLine);
  end;

  CloseFile(MyFile); // 关闭文件
end;

在上述代码中,Reset 过程用于打开现有文件。ReadLn 过程用于读取文件的下一行,并将其存储在 MyLine 变量中。Eof 函数用于检查是否读取了整个文件。

简易文件处理

除了基本文件处理程序之外,Delphi 还提供了一些更简易的方法来创建、读取和写入文件。

使用 TFileStream 创建文件

使用 TFileStream 可以创建、读取和写入文件。以下是使用 TFileStream 创建新文本文件的示例代码。

var
  MyFileStream: TFileStream;
  MyText: string;
begin
  MyText := '这是一个新的文本文件';

  MyFileStream := TFileStream.Create('C:\MyTextFile.txt', fmCreate or fmOpenWrite);
  try
    MyFileStream.Write(MyText[1], Length(MyText)); // 将文本写入到文件
  finally
    MyFileStream.Free; // 相当于 CloseFile
  end;
end;

在上述代码中,TFileStream.Create 方法用于创建新文件。fmCreate 参数指定文件应创建(如果不存在);fmOpenWrite 参数指定文件可写入。MyFileStream.Write 方法用于将文本写入到文件。最后,在 finally 代码段中调用 MyFileStream.Free 方法来关闭文件。

使用 TStringList 写入文件

使用 TStringList 可以轻松地向文本文件写入字符串列表。以下是将字符串列表写入文本文件的示例代码。

var
  MyStringList: TStringList;
begin
  MyStringList := TStringList.Create;
  try
    MyStringList.Add('第一行');
    MyStringList.Add('第二行');

    MyStringList.SaveToFile('C:\MyTextFile.txt');
  finally
    MyStringList.Free;
  end;
end;

在上述代码中,TStringList.Create 方法用于创建新的字符串列表。MyStringList.Add 方法用于向字符串列表添加新行。最后,MyStringList.SaveToFile 方法用于将字符串列表写入文本文件。最后在 finally 代码段中调用 MyStringList.Free 方法来释放字符串列表。

结论

Delphi 提供了许多方法来创建、读取和写入文本文件,包括标准 Pascal 文件处理程序、TFileStreamTStringList。您可以根据您的需要选择其中一个方法来满足您的需求。