Delphi 更改扩展名函数ChangeFileExt
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;
如果觉得文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
作者:YXGust
出处:https://www.cnblogs.com/YXGust/p/16576814.html
版权:本作品采用「署名-非商业性使用-相同方式共享 4.0 国际」许可协议进行许可。
本博文版权归本博主所有,转载请注明原文链接