神马品牌网月季的简单种植方法:请问Delphi的Record怎么才能存到文件里边去啊？
来源：百度文库 编辑：神马品牌网 时间：2024/05/06 02:45:02
保存为记录文件
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;
什么意思？