200分,请各位帮忙把RichEdit的内容(有图片,也有文字)保存到一结构体文件中.求各位快点帮忙想想办法.(100分)

hxiaomin888 · 2006-09-11

该自定义格式文件定义如下. type  TSoftDetailRecord=packed record                 Autoid:integer;                 Classid:integer;                 SoftName:String[100];                 SoftPath:String[200];                 Description

ointer;               end; 我要把RichEdit的内容保存到Description中,并可以再次读出来.如果分不够的话,我可以再加一百分!只求各位能快点帮我想想办法.

taizhi · 2006-09-11

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3566065

hxiaomin888 · 2006-09-11

怎么就没人知道呢?还是其它原因不愿回答?

zbr · 2006-09-11

我觉得是否可以这样：把RichEdit的内容保存到流内。然后让指针指向流。

nicai_wgl · 2006-09-11

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls; type  TForm1 = class(TForm)    RichEdit1: TRichEdit;    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    procedure SaveREFile;    procedure LoadREFile;  end;  TSoftDetailRecord=packed record                 Autoid:integer;                 Classid:integer;                 SoftName:String[100];                 SoftPath:String[200];                 Description

ointer;               end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin  SaveREFile; end; procedure TForm1.LoadREFile; var  tmpStream, tmpFStream: TStream;  tmpRd: TSoftDetailRecord; begin  tmpStream := TMemoryStream.Create;  tmpFStream := TFileStream.Create('c:/1.dat', fmOpenReadWrite);  try    tmpFStream.Read(tmpRd, SizeOf(tmpRd));    tmpStream.CopyFrom(tmpFStream, Integer(tmpRd.Description));    tmpStream.Position := 0;    RichEdit1.Lines.LoadFromStream(tmpStream);  finally    tmpFStream.Free;    tmpStream.Free;  end; end; procedure TForm1.SaveREFile; var  tmpStream, tmpFStream: TStream;  tmpRd: TSoftDetailRecord; begin  tmpStream := TMemoryStream.Create;  tmpFStream := TFileStream.Create('c:/1.dat', fmOpenReadWrite or fmCreate);  try    RichEdit1.Lines.SaveToStream(tmpStream);    Integer(tmpRd.Description) := tmpStream.Size;    tmpFStream.Write(tmpRd, SizeOf(tmpRd));    tmpStream.Position := 0;    tmpFStream.CopyFrom(tmpStream, tmpStream.Size);  finally    tmpFStream.Free;    tmpStream.Free;  end; end; procedure TForm1.Button2Click(Sender: TObject); begin  LoadREFile; end; end.

hxiaomin888 · 2006-09-11

我先试试,OK后再给分.

hxiaomin888 · 2006-09-11

to nicai_wgl 请问: RichEdit1.Lines.SaveToStream(tmpStream);    Integer(tmpRd.Description) := tmpStream.Size; 你的这两句就算把RichEdit1的数据保存到tmpRd.Description了吗?能帮我解释一下吗?这里我还不太明白.

hxiaomin888 · 2006-09-11

to nicai_wgl 请问,以下四句中,到底是哪句的作用是保存tmpRD到文件?(不好意思,我很菜的)    Integer(tmpRd.Description) := tmpStream.Size;    tmpFStream.Write(tmpRd, SizeOf(tmpRd));    tmpStream.Position := 0;    tmpFStream.CopyFrom(tmpStream, tmpStream.Size);

nicai_wgl · 2006-09-12

呵呵，我给你注释一下：    Integer(tmpRd.Description) := tmpStream.Size;  //赋给Description RichEdit1的数据的长度    tmpFStream.Write(tmpRd, SizeOf(tmpRd));  //把结构写入文件    tmpStream.Position := 0;      tmpFStream.CopyFrom(tmpStream, tmpStream.Size); //把RichEdit1的数据从内存流里写入文件

hxiaomin888 · 2006-09-12

谢谢nicai_wgl 能否再问一下,如果我要添加多条记录,你这种方法行吗?能否再请你提示一下该如何做呢?(问得太多,请别见怪!)

hxiaomin888 · 2006-09-12

请nicai_wgl兄到http://www.delphibbs.com/delphibbs/dispq.asp?lid=3569839 领另外100分.

nicai_wgl · 2006-09-12

刚才没明白你记录的意思，不好意思，如果是多个结构要保存到一个文件，也没有问题，只是你读写函数要改一下。等下贴代码上来。

hxiaomin888 · 2006-09-12

谢谢nicai_wgl兄对我的问题的一直关注. 我想在你的Button1Click事件中,按一次按钮就添加一条记录,那你的SaveREFile应该如何修改? procedure TForm1.Button1Click(Sender: TObject); begin  SaveREFile; end;

hxiaomin888 · 2006-09-12

我所说的记录就是: 因为我定义了一个数据结构: type  TSoftDetailRecord=packed record                 Autoid:integer;                 Classid:integer;                 SoftName:String[100];                 SoftPath:String[200];                 Description

ointer;               end; var  tmpRD:TSoftDetailRecord 每保存一个tmpRD就是保存了一条记录.

nicai_wgl · 2006-09-12

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls; type  TForm1 = class(TForm)    RichEdit1: TRichEdit;    Button1: TButton;    Button2: TButton;    Edit1: TEdit;    UpDown1: TUpDown;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private  public    procedure SaveREFile;    procedure LoadREFile(AutoID: Integer);  end;  TSoftDetailRecord=packed record                 Autoid:integer;                 Classid:integer;                 SoftName:String[100];                 SoftPath:String[200];                 Description

ointer;               end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin  SaveREFile; end; procedure TForm1.LoadREFile(AutoID: Integer); var  tmpStream, tmpFStream: TStream;  tmpRd: TSoftDetailRecord; begin  tmpStream := TMemoryStream.Create;  tmpFStream := TFileStream.Create('c:/1.dat', fmOpenReadWrite);  try    repeat      tmpFStream.Read(tmpRd, SizeOf(tmpRd));      if tmpRd.Autoid <> AutoID then      begin        if tmpFStream.Size > (tmpFStream.Position + Integer(tmpRd.Description)) then          tmpFStream.Seek(Integer(tmpRd.Description), soCurrent)        else        begin          showmessage('找不到这条记录!');          exit;        end;      end      else break;    until tmpRd.Autoid = AutoID;    //读入数据    tmpStream.CopyFrom(tmpFStream, Integer(tmpRd.Description));    tmpStream.Position := 0;    RichEdit1.Lines.LoadFromStream(tmpStream);  finally    tmpFStream.Free;    tmpStream.Free;  end; end; procedure TForm1.SaveREFile; var  tmpStream, tmpFStream: TStream;  tmpRd: TSoftDetailRecord; begin  tmpStream := TMemoryStream.Create;  if not FileExists('c:/1.dat') then    tmpFStream := TFileStream.Create('c:/1.dat', fmOpenReadWrite or fmCreate)  else tmpFStream := TFileStream.Create('c:/1.dat', fmOpenReadWrite);  try    RichEdit1.Lines.SaveToStream(tmpStream);    tmpRd.Autoid := StrToInt(Edit1.Text);    Integer(tmpRd.Description) := tmpStream.Size;    tmpFStream.Seek(0, soEnd); //移到文件最后    tmpFStream.Write(tmpRd, SizeOf(tmpRd));    tmpStream.Position := 0;    tmpFStream.CopyFrom(tmpStream, tmpStream.Size);  finally    tmpFStream.Free;    tmpStream.Free;  end; end; procedure TForm1.Button2Click(Sender: TObject); begin  LoadREFile(StrToInt(Edit1.Text)); end; end.

hxiaomin888 · 2006-09-12

谢谢nicai_wgl,谢谢各位!

200分,请各位帮忙把RichEdit的内容(有图片,也有文字)保存到一结构体文件中.求各位快点帮忙想想办法.(100分)

hxiaomin888

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

hxiaomin888

Unregistered / Unconfirmed

zbr

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

hxiaomin888

Unregistered / Unconfirmed

hxiaomin888

Unregistered / Unconfirmed

hxiaomin888

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

hxiaomin888

Unregistered / Unconfirmed

hxiaomin888

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

hxiaomin888

Unregistered / Unconfirmed

hxiaomin888

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

hxiaomin888

Unregistered / Unconfirmed

Similar threads