Delphi-LightSaber/LightCore.INIFileQuick.pas at main · GabrielOnDelphi/Delphi-LightSaber · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
UNIT LightCore.INIFileQuick;

{=============================================================================================================
   2026.01.30
   www.GabrielMoraru.com
--------------------------------------------------------------------------------------------------------------
   Stand-alone functions to QUICKLY save/load data to INI file.
   No need to manually create the TIniFile object anymore.

   Warning:
      Each time we use one of these function, it opens the INI file.
      This could be slow. Don't abuse it!

   Section name
      The section name is automatically retrieve from 'AppData.AppName'.
      The Identifier MUST be unique in the entire section!

   File path
      The file is saved in application's folder (%AppData%).
=============================================================================================================}

INTERFACE

USES
   System.SysUtils;


procedure WriteInteger (CONST Identifier: string; i: Integer);
function  ReadInteger  (CONST Identifier: string; DefaultVal: Integer= 0): Integer;

procedure WriteString  (CONST Identifier, s: string);
function  ReadString   (CONST Identifier: string; DefaultVal: string= ''): string;

procedure WriteBool    (CONST Identifier: string; b: Boolean);
function  ReadBoolean  (CONST Identifier: string; DefaultVal: Boolean= FALSE): Boolean;

procedure WriteDbl     (CONST Identifier: string; d: Double);
function  ReadDbl      (CONST Identifier: string; DefaultVal: Double= 0.0): Double;

procedure WriteDate    (CONST Identifier: string; d: TDateTime);
function  ReadDate     (CONST Identifier: string; DefaultVal: TDateTime): TDateTime;


IMPLEMENTATION

USES
   LightCore.AppData, LightCore.INIFile;


procedure WriteInteger(CONST Identifier: string; i: Integer);
VAR IniFile: TIniFileEx;
begin
  IniFile:= TIniFileEx.Create(AppDataCore.AppName, AppDataCore.IniFile);
  TRY
    IniFile.WriteInteger(AppDataCore.AppName, Identifier, i)
  FINALLY
    FreeAndNil(IniFile);
  END;
end;

function ReadInteger(CONST Identifier: string; DefaultVal: Integer): Integer;
VAR IniFile: TIniFileEx;
begin
  IniFile:= TIniFileEx.Create(AppDataCore.AppName, AppDataCore.IniFile);
  TRY
    Result:= IniFile.ReadInteger(AppDataCore.AppName, Identifier, DefaultVal);
  FINALLY
    FreeAndNil(IniFile);
  END;
end;


{ TIniFile bug: Cannot put spaces at the beginning of a 'value'. The spaces will be trimmed }
procedure WriteString(CONST Identifier, s: string);
VAR IniFile: TIniFileEx;
begin
  IniFile:= TIniFileEx.Create(AppDataCore.AppName, AppDataCore.IniFile);
  TRY
    IniFile.WriteString(AppDataCore.AppName, Identifier, s)
  FINALLY
    FreeAndNil(IniFile);
  END;
end;

function ReadString(CONST Identifier: string; DefaultVal: string): string;
VAR IniFile: TIniFileEx;
begin
  IniFile:= TIniFileEx.Create(AppDataCore.AppName, AppDataCore.IniFile);
  TRY
    Result:= IniFile.ReadString(AppDataCore.AppName, Identifier, DefaultVal);
  FINALLY
    FreeAndNil(IniFile);
  END;
end;


procedure WriteBool(CONST Identifier: string; b: Boolean);
VAR IniFile: TIniFileEx;
begin
  IniFile:= TIniFileEx.Create(AppDataCore.AppName, AppDataCore.IniFile);
  TRY
    IniFile.WriteBool(AppDataCore.AppName, Identifier, b)
  FINALLY
    FreeAndNil(IniFile);
  END;
end;

function ReadBoolean(CONST Identifier: string; DefaultVal: Boolean= FALSE): Boolean;
VAR IniFile: TIniFileEx;
begin
  IniFile:= TIniFileEx.Create(AppDataCore.AppName, AppDataCore.IniFile);
  TRY
    Result:= IniFile.ReadBool(AppDataCore.AppName, Identifier, DefaultVal);
  FINALLY
    FreeAndNil(IniFile);
  END;
end;


procedure WriteDbl (CONST Identifier: string; d: Double);
VAR IniFile: TIniFileEx;
begin
  IniFile:= TIniFileEx.Create(AppDataCore.AppName, AppDataCore.IniFile);
  TRY
    IniFile.Write(Identifier, d)
  FINALLY
    FreeAndNil(IniFile);
  END;
end;

function  ReadDbl (CONST Identifier: string; DefaultVal: Double= 0.0): Double;
VAR IniFile: TIniFileEx;
begin
  IniFile:= TIniFileEx.Create(AppDataCore.AppName, AppDataCore.IniFile);
  TRY
    Result:= IniFile.Read(Identifier, DefaultVal);
  FINALLY
    FreeAndNil(IniFile);
  END;
end;


procedure WriteDate (CONST Identifier: string; d: TDateTime);
VAR IniFile: TIniFileEx;
begin
  IniFile:= TIniFileEx.Create(AppDataCore.AppName, AppDataCore.IniFile);
  TRY
    IniFile.WriteDate(Identifier, d)
  FINALLY
    FreeAndNil(IniFile);
  END;
end;

function  ReadDate (CONST Identifier: string; DefaultVal: TDateTime): TDateTime;
VAR IniFile: TIniFileEx;
begin
  IniFile:= TIniFileEx.Create(AppDataCore.AppName, AppDataCore.IniFile);
  TRY
    Result:= IniFile.ReadDate(Identifier, DefaultVal);
  FINALLY
    FreeAndNil(IniFile);
  END;
end;


end.