标签:ChangeFileExt 扩展名 Self Height Width Setting ini end Delphi
function ChangeFileExt(const FileName, Extension: string): string;
var
I: Integer;
begin
I := LastDelimiter('.' + PathDelim + DriveDelim,Filename);
if (I = 0) or (FileName[I] <> '.') then I := MaxInt;
Result := Copy(FileName, 1, I - 1) + Extension;
end;
用途:当我们想在程序目录建立一个ini配置文件的时候,可快速生成ini路径。
procedure TForm1.FormCreate(Sender: TObject);
var
ini: TIniFile;
begin
ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
try
Self.Left := ini.ReadInteger('Setting', 'Left', 0);
Self.Top := ini.ReadInteger('Setting', 'Top', 0);
Self.Width := ini.ReadInteger('Setting', 'Width', Self.Width);
Self.Height := ini.ReadInteger('Setting', 'Height', Self.Height);
finally
ini.Free;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
ini: TIniFile;
begin
ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
try
ini.WriteInteger('Setting', 'Left', Self.Left);
ini.WriteInteger('Setting', 'Top', Self.Top);
ini.WriteInteger('Setting', 'Width', Self.Width);
ini.WriteInteger('Setting', 'Height', Self.Height);
finally
ini.Free;
end;
end;
标签:ChangeFileExt,扩展名,Self,Height,Width,Setting,ini,end,Delphi 来源: https://www.cnblogs.com/YXGust/p/16576814.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。