杭州交通信息网南储商务网总经理是谁:请问Delphi的Record怎么才能存到文件里边去啊？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 22:21:55
保存为记录文件
function TDM.GetDBSetting: TSQLSetting;
var
SettingFile: file of TSQLSetting;
//SQLSetting : TSQLSetting;
FilePath: String;
begin
FilePath := ExtractFilePath(ParamStr(0)) + 'LinkData.dat';
try
AssignFile(SettingFile,FilePath); //关联文件
try
ReSet(SettingFile);
Read(SettingFile,Result);
except
with Result do
begin
strUserName := '';
strPassWord := '';
strServerHost := 'xx;
strDatabase := 'xx';
end;
end;
finally
CLoseFile(SettingFile);
end;
end;
什么意思？