(急盼)谁给我一个用结构体读写文件并查找的代码(在线等待)? 并能够把每一段结构体在文件的位置写到另一个文件里最好! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 type TSysLog = record Date: TDateTime; Monitor: string[8]; Logtxt: string[20]; end; PSysLog = ^TSysLog;procedure WriteSysLog(User, LogData: string);var FFile: TFileStream; offset: Longint; LogFileName: TFileName; PPSysLog: PSysLog;begin try New(PPSysLog); LogFileName := ExeFileDir + LogPath + 'sysLog.log'; if not FileExists(LogFileName) then FFile := TFileStream.Create(LogFileName, fmCreate) else FFile := TFileStream.Create(LogFileName, fmOpenWrite); offset := FFile.Seek(0, soFromEnd); FFile.Position := offset; PPSysLog.Monitor := User; PPSysLog.Logtxt := LogData; PPSysLog.Date := Now; FFile.WriteBuffer(PPsysLog^, sizeof(TSysLog)); FreeMem(PPSysLog); FFile.Free; except end;end; 郁闷,做好的程序不能发布 一般数据库管理系统是否会用到本地表?效率如何? 强烈要求CSDN社区解决以下问题!!!!!(顺便散分) 我遇到了一个打印上的问题 三层结构中的参数传递 提问,有关ado的 为了弄毕业设计,开始学Delphi,大家介绍点精验吧,我学过VB、C不知转学它难吗 NMFTP控件,登陆错误 530 Not Logged in 是什么意思? 如何向应用程序传递参数 DELPHI中数据计算的问题 请教d7和sqlserver7问题(关于record buffer)急等!!! QuickReport中那个控件能上下方向显示文字?
TSysLog = record
Date: TDateTime;
Monitor: string[8];
Logtxt: string[20];
end;
PSysLog = ^TSysLog;procedure WriteSysLog(User, LogData: string);
var
FFile: TFileStream;
offset: Longint;
LogFileName: TFileName;
PPSysLog: PSysLog;
begin
try
New(PPSysLog);
LogFileName := ExeFileDir + LogPath + 'sysLog.log';
if not FileExists(LogFileName) then
FFile := TFileStream.Create(LogFileName, fmCreate)
else
FFile := TFileStream.Create(LogFileName, fmOpenWrite);
offset := FFile.Seek(0, soFromEnd);
FFile.Position := offset;
PPSysLog.Monitor := User;
PPSysLog.Logtxt := LogData;
PPSysLog.Date := Now;
FFile.WriteBuffer(PPsysLog^, sizeof(TSysLog));
FreeMem(PPSysLog);
FFile.Free;
except
end;
end;