在Delphi开发过程中，文件操作是常见的功能之一，尤其是在处理数据存储、日志记录或配置信息时。无论是读取文本文件还是二进制文件，Delphi都提供了多种方法来实现。本文将对Delphi中常用的文件读取与写入方式进行总结，帮助开发者更高效地进行文件操作。
一、文件读取方式
1. 使用`TFileStream`类读取文件
`TFileStream`是Delphi中用于处理文件读写的常用类，支持读取文本文件和二进制文件。通过该类可以逐字节或按块读取文件内容。
```delphi
var
fs: TFileStream;
buffer: array of Byte;
bytesRead: Integer;
begin
fs := TFileStream.Create('C:\test.txt', fmOpenRead or fmShareDenyWrite);
try
SetLength(buffer, fs.Size);
bytesRead := fs.Read(buffer[0], fs.Size);
// 处理读取的数据
finally
fs.Free;
end;
end;
```
2. 使用`TStringList`读取文本文件
对于文本文件，`TStringList`是一个非常方便的工具，可以轻松读取每一行内容。
```delphi
var
sl: TStringList;
begin
sl := TStringList.Create;
try
sl.LoadFromFile('C:\test.txt');
// 遍历sl中的每一行
for i := 0 to sl.Count - 1 do
ShowMessage(sl[i]);
finally
sl.Free;
end;
end;
```
3. 使用`AssignFile`和`Reset`函数（传统方式）
在较早版本的Delphi中，常使用`AssignFile`和`Reset`等函数进行文件读取，适用于简单的文本文件操作。
```delphi
var
f: TextFile;
line: string;
begin
AssignFile(f, 'C:\test.txt');
Reset(f);
while not Eof(f) do
begin
ReadLn(f, line);
ShowMessage(line);
end;
CloseFile(f);
end;
```
二、文件写入方式
1. 使用`TFileStream`写入文件
`TFileStream`同样适用于文件写入操作，可以写入文本或二进制数据。
```delphi
var
fs: TFileStream;
begin
fs := TFileStream.Create('C:\output.txt', fmCreate);
try
fs.Write('Hello, Delphi!', Length('Hello, Delphi!'));
finally
fs.Free;
end;
end;
```
2. 使用`TStringList`写入文本文件
若需要将多行字符串保存到文件中，`TStringList`提供了便捷的方法。
```delphi
var
sl: TStringList;
begin
sl := TStringList.Create;
try
sl.Add('Line 1');
sl.Add('Line 2');
sl.SaveToFile('C:\output.txt');
finally
sl.Free;
end;
end;
```
3. 使用`AssignFile`和`Rewrite`函数（传统方式）
类似于读取操作，`AssignFile`和`Rewrite`可用于写入文本文件。
```delphi
var
f: TextFile;
begin
AssignFile(f, 'C:\output.txt');
Rewrite(f);
WriteLn(f, 'This is a test.');
CloseFile(f);
end;
```
三、注意事项
- 在进行文件操作前，应确保目标路径存在且程序有相应的访问权限。
- 使用完文件流后，务必调用`Free`方法释放资源，避免内存泄漏。
- 对于大文件操作，建议采用分块读写的方式，提高效率并减少内存占用。
四、总结
Delphi提供了多种文件读写方式，开发者可以根据具体需求选择合适的方法。对于文本文件，`TStringList`和传统方式较为简单直接；而对于二进制文件或大文件处理，`TFileStream`则更为高效可靠。掌握这些基本操作，能够显著提升Delphi应用程序的功能性和稳定性。
