Ниже показаны две функции, которые помещают и получают значение переменной (StringName) в ini-секции (IniSection) ini-файла (TheIniFile)}
functionIniGetStringValue( TheIniFile: string
; IniSection: string
; StringName: string
; DefaultString: string
): string
; var
TheIni: TIniFile; begin
TheIni := TIniFile.Create(Self); try
Result := TheIni.ReadString( IniSection, StringName, DefaultString); if
Result = '' then
Result := DefaultString; finally
TheIni.Free; end
; end
; function
IniSetStringValue( TheIniFile: string
; IniSection: string
; StringName: string
; StringValue: string
): Boolean; var
TheIni: TIniFile; begin
TheIni := TIniFile.Create(Self); try
try
TheIni.WriteString( IniSection, StringName, StringValue); Result := True
; except
Result := False
; end
; finally
TheIni.Free; end
; end
;