在Delphi中,从文件快速读/写的方法有很多种,以下是一些常用的方法:
var
fs: TFileStream;
buffer: array[0..1023] of Byte;
bytesRead: Integer;
begin
fs := TFileStream.Create('filename.txt', fmOpenRead);
try
bytesRead := fs.Read(buffer, SizeOf(buffer));
while bytesRead > 0 do
begin
// 处理读取到的数据
bytesRead := fs.Read(buffer, SizeOf(buffer));
end;
finally
fs.Free;
end;
end;
var
ms: TMemoryStream;
buffer: array[0..1023] of Byte;
bytesRead: Integer;
begin
ms := TMemoryStream.Create;
try
ms.LoadFromFile('filename.txt');
bytesRead := ms.Read(buffer, SizeOf(buffer));
while bytesRead > 0 do
begin
// 处理读取到的数据
bytesRead := ms.Read(buffer, SizeOf(buffer));
end;
finally
ms.Free;
end;
end;
var
buffer: array[0..1023] of Byte;
bytesRead: Integer;
begin
TFile.ReadBuffer('filename.txt', buffer, SizeOf(buffer));
// 处理读取到的数据
end;
以上是一些常用的从文件快速读/写的方法,可以根据具体的需求选择合适的方法。
领取专属 10元无门槛券
手把手带您无忧上云