如何将eventmsg类数据保存到数据库？

Question

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

Answer 1

var
  IniFile : TIniFile;
  i : integer;
begin
  IniFile := TIniFile.Create('.\Evetn.ini');
  try
    for i ;= 0 to Length(EventArr) - 1 do 
      IniFile.WriteString('Ident', IntToStr(i), EventArr[i]);
  finally
    IniFile.Free;
  end;
end;

Answer 2

errors:incompatible types:String and TagEVENTMSG;
编译不过去，老大！

Answer 3

EVENTMSG是什么类型的？我把Delphi关掉了，查不到

Answer 4

EventArr[i]换成IntToStr(EventArr[i].Message)+' '
+IntToStr(EventArr[i].ParamH)+' '
+IntToStr(EventArr[i].ParamL)

Answer 5

message: UINT;
    paramL: UINT;
    paramH: UINT;
    time: DWORD;
    hwnd: HWND;
time和hwnd怎么保存？

Answer 6

var
  IniFile : TIniFile;
  i : integer;
begin
  IniFile := TIniFile.Create('.\Evetn.ini');
  try
    for i ;= 0 to Length(EventArr) - 1 do 
begin
      IniFile.WriteString('Ident' + IntToStr(i), 'paramL', IntToStr(EventArr[i].paramL));
      IniFile.WriteString('Ident' + IntToStr(i), 'paramH', IntToStr(EventArr[i].paramH));
      IniFile.WriteString('Ident' + IntToStr(i), 'time', IntToStr(EventArr[i].time));
      IniFile.WriteString('Ident' + IntToStr(i), 'hwnd', IntToStr(EventArr[i].hwnd));
END
  finally
    IniFile.Free;
  end;
end;