如何保存eventmsg数据到文件？不够再加分

Question

EventArr:array[0..1000]of EVENTMSG;
如何把EVENTMSG类数据EventArr保存到文件里或数据库里？？
请详细解说

Answer 1

var  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then     { Display Open dialog box }
  begin
    AssignFile(FromF, OpenDialog1.FileName);
    Reset(FromF, 1); { Record size = 1 }
    if SaveDialog1.Execute then      { Display Save dialog box}
    begin
      AssignFile(ToF, SaveDialog1.FileName); { Open output file }      Rewrite(ToF, 1); { Record size = 1 }
      Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      CloseFile(FromF);
      CloseFile(ToF);
    end;
  end;
end;

Answer 2

我是说在程序中取到EVENTMSG类数据，想保存出来，
你的代码好象不能实现。
程序中如下取的EventMSG类数据，
EventArr:array[0..1000]of  EVENTMSG;  
EventLog:integer;
EventArr[EventLog]:=pEventMSG(lParam)^;
如何才能把EventArr[EventLog]数组的内容保存到文件或数据库？

Answer 3

FOR I：=0 TO 1000 DO
BEGIN
 BlockWrite(ToF,EventArr[i] , sizeof(EVENTMSG),sizeof(EVENTMSG));
END；