📅  最后修改于: 2023-12-03 14:50:15.745000             🧑  作者: Mango
在 Delphi 中创建文本文件非常简单,您可以使用标准 Pascal 文件处理程序来创建、读取和写入文本文件。此外,Delphi 还提供了一些简便的方法来创建和修改文件。
使用 AssignFile
、ReWrite
和 CloseFile
过程可以创建新的文本文件。以下是创建新的文本文件的示例代码。
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 文件处理程序、TFileStream
和 TStringList
。您可以根据您的需要选择其中一个方法来满足您的需求。