用delphi读取一个dat文件从第128位开始读取并显示到memo里。

可以使用TFileStream类来读取.dat文件，并使用TMemo控件来显示读取的内容。以下是一个示例代码：

var
  FileStream: TFileStream;
  Buffer: array of Byte;
  MemoContent: AnsiString;
  i: Integer;
begin
  // 创建文件流对象
  FileStream := TFileStream.Create('yourfile.dat', fmOpenRead);
  
  try
    // 定位到第128位
    FileStream.Seek(128, soBeginning);
    
    // 读取剩余内容
    SetLength(Buffer, FileStream.Size - FileStream.Position);
    FileStream.ReadBuffer(Buffer[0], Length(Buffer));
    
    // 将字节数组转换为字符串
    SetString(MemoContent, PAnsiChar(@Buffer[0]), Length(Buffer));
    
    // 在Memo中显示内容
    Memo1.Lines.Text := MemoContent;
  finally
    FileStream.Free;
  end;
end;

请将代码中的'yourfile.dat'替换为您要读取的实际文件路径