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
| procedure SaveValues;
begin
with TIniFile.Create('c:\configs.ini') do
try
WriteString('BMW', 'ValeurDuEdit1', Edit1.text);
WriteString('BMW', 'ValeurDuEdit2', Edit2.text);
WriteString('BMW', 'ValeurDuEdit3', Edit3.text);
WriteString('AUDI', 'ValeurDuEdit4', Edit4.text);
WriteString('AUDI', 'ValeurDuEdit5', Edit5.text);
WriteString('AUDI', 'ValeurDuEdit6', Edit6.text);
finally
Free;
end;
end;
procedure LoadValues;
begin
with TIniFile.Create('c:\configs.ini') do
try
Edit1.text := ReadString('BMW', 'ValeurDuEdit1', '');
Edit2.text := ReadString('BMW', 'ValeurDuEdit2', '');
Edit3.text := ReadString('BMW', 'ValeurDuEdit3', '');
Edit4.text := ReadString('AUDI', 'ValeurDuEdit4', '');
Edit5.text := ReadString('AUDI', 'ValeurDuEdit5', '');
Edit6.text := ReadString('AUDI', 'ValeurDuEdit6', '');
finally
Free;
end;
end; |
Partager