如果做一个二进制文件读写器(100分)

可以把任何类型的文件以二进制的形式读写
提点建议

可以参考： http://www.delphibbs.com/delphibbs/dispq.asp?lid=526149
建议采用类似UltraEdit的编辑界面—— 一边是Hex，一边是字符串，方便直观。
网上有For Delphi的十六进制编辑控件，你可以到Delphi深度历险里去找一找。
我用的是StringGrid，功能极其简单。

这是一个注册EXE,OBJ,BIN三种类型文件当其被RichEdit打开时会自动转换为16进制显示的例子

第一：要从TCoriversion派生出一个新类
第二：重载CorrvertReadStream函数
第三：在主窗体的OnCreate函数中登记文件类型。用RichEdit的.RegisterConversionFormat函数


unit main;
interface

uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs,
Menus, StdCtrls, ComCtrls;

type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
MenuFile: TMenuItem;
MenuOpen: TMenuItem;
MenuSaveAs: TMenuItem;
N1: TMenuItem;
MenuExit: TMenuItem;
OpenDlg: TOpenDialog;
SaveDlg: TSaveDialog;
Rich: TRichEdit;
StatusBar: TStatusBar;
procedure FormCreate(Sender: TObject);
procedure MenuOpenClick(Sender: TObject);
procedure MenuSaveAsClick(Sender: TObject);
procedure MenuExitClick(Sender: TObject);
procedure MenuPopupPopup(Sender: TObject);
procedure MenuSelectAllClick(Sender: TObject);
procedure MenuCopyClick(Sender: TObject);
private
procedure Progress(Address:LongInt);
end;

var
MainForm: TMainForm;

implementation

{$R *.DFM}

type
THexConversion = class(TConversion)
public
function ConvertReadStream(Stream:TStream
BufferChar;
BufSize:integer): integer
override;
end;


// This implements a callback procedure used by TRichEdit when loading
// a file. Gets called repeatedly until stream is empty.
//
function THexConversion.ConvertReadStream(Stream:TStream
BufferChar;
BufSize:integer): integer;
var s:string;
buf:array[1..16] of char;
i,n:integer;
begin
Result := 0;
if BufSize <= 82 then Exit;
s := Format(';%.5x ',[Stream.Position]);
n := Stream.Read(buf,16);
if n = 0 then Exit;
for i := 1 to n do
begin
AppendStr(s,IntToHex(ord(buf),2)+' ');
if i mod 4 = 0 then AppendStr(s,' ');
end;
AppendStr(s,StringOfChar(' ',62-length(s)));
for i := 1 to n do
begin
if (buf < #32) or (buf > #126) then
buf := '.';
AppendStr(s,buf);
end;
AppendStr(s,#13#10);
StrPCopy(Buffer,s);
Result := length(s);
if Stream.Position and $FFF = 0 then MainForm.Progress(Stream.Position);
end;

procedure TMainForm.Progress(Address:LongInt);
begin
StatusBar.SimpleText := 'Reading... $'+IntToHex(Address,5);
StatusBar.Update;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
Rich.RegisterConversionFormat('bin',THexConversion);
Rich.RegisterConversionFormat('obj',THexConversion);
Rich.RegisterConversionFormat('exe',THexConversion);
end;

procedure TMainForm.MenuOpenClick(Sender: TObject);
var fname:string;
begin
if OpenDlg.Execute then
begin
try
Screen.Cursor := crHourglass;
fname := ExtractFileName(OpenDlg.Filename);
StatusBar.SimpleText := 'Reading...';
Rich.Lines.Clear;
Application.ProcessMessages;
try
Rich.Lines.LoadFromFile(OpenDlg.Filename);
StatusBar.SimpleText := fname;
except on E:EFOpenError do
begin
StatusBar.SimpleText := '';
MessageDlg(Format('Can''t open file %s.',[fname]),mtError,[mbOk],0);
end;
end;
finally
Screen.Cursor := crDefault;
end;
end;
end;


procedure TMainForm.MenuSaveAsClick(Sender: TObject);
begin
SaveDlg.Filename := ChangeFileExt(OpenDlg.FileName,'.txt');
if SaveDlg.Execute then
Rich.Lines.SaveToFile(SaveDlg.FileName);
end;

procedure TMainForm.MenuExitClick(Sender: TObject);
begin
Close;
end;

end.

有一个现成的编辑器，带源吗，要吗？

来一份谢谢！delphiinfomail@163.com

to omvm
我也要一个。谢谢。
oldice@163.net

上传到:delphi.mychangshu.com

baxp@yeah.net
谢谢，货到付款

to omvm
我也要一个。谢谢。

lixin0328@163.com

已上传至《Delphi开发者资源社区》：http://delphi.mychangshu.com/
大家去下载啊，别忘了分分，虽然不是我写的。[]

MiniHex 1.1 （迷你十六进制编辑器）
作者：郝庚新（电子日记本的作者）
主页：我的白日梦
http://ediary.myrice.com/
编程语言：Delphi 4
程序规模：一万五千行

给分了