IniFiles를 추가합니다.
uses
IniFiles;
설정 값 내보내기
procedure saveSettings;
var
ini : TIniFile;
begin
ini := TIniFile.Create('ini가 저장될 경로+파일명.ini');
//ex) ini := TIniFile.Create('C:\test.ini');
try
//ex) ini.WriteInteger([분류명], [키], [값]);
ini.WriteString('Profile', 'Name', '강택현'); //string형 값을 저장
ini.WriteInteger('Profile', 'Age', 26); //int형 값을 저장
..
ini.WriteDateTime('Time', 'Now', Now); //DateTime형 값을 저장
finally
ini.Free;
end;
end;
저장된 ini파일
설정 값 가져오기
procedure ReadSettings;
var
ini : TIniFile;
sName : string;
nAge : Integer;
dtNow : TDateTime;
begin
ini := TIniFile.Create('ini를 읽어올 경로+파일명.ini');
try
//ex) ini.ReadInteger([분류명], [키], [기본값]);
sName := ini.ReadString('Profile', 'Name', 'TeakHyun');
nAge := ini.ReadInteger('Profile', 'Age', 20)
..
dtNow := ini.ReadDateTime('Time', 'Now', Now);
finally
ini.Free;
end;
end;