Discussion :

[chmaichel]

bonjour :
je voudrais ouvrir un fichier excel et un fichier texte sans savoir leurs racines ou les repertoires ou ils sont, on m'a dit que pour ça il faut des fichiers .ini sauf que je ne sais pas du tout à quoi ça sert ni comment ça fonctionne
merci de votre aide

[Pedro]

Salut
et TIniFile

[chmaichel]

ok mais ça m'aide pas trop ..
c'est très générale ce qu'il ya dans la F1 .
Je cherche comment stocker et utiliser les informations dans un fichier INI...

[Andry]

Tu saisi TIniFile, tu met le curseur dessu et tu appuie sur .

A+

[slimjoe]

Tu saisi TIniFile, tu met le curseur dessu et tu appuie sur .

A+

LOL!

[chmaichel]

!!
JE sais comment faire pour voir la F1 !!
Mais je ne sais pas comment retrouver les informations enregistrées dans un fichier INI!!
(une question n'est jamais bête ....)

[slimjoe]

Lecture d'un fichier INI

This cross-platform example reads the myapp.ini file and displays on the form the status of your auto save options.
Before you run this example, you must add the IniFiles unit to the uses clause ofinclude IniFiles.hpp in your unit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.FormActivate(Sender: TObject);
 
var
  MyIniFile: TIniFile;
begin
  MyIniFile := TIniFile.Create('myapp.ini');
  with MyIniFile do
  begin
    if ReadBool('AutoLoad', 'FormProperties', False) = True then
    begin
      Visible := ReadBool('FormOptions', 'Visible', True);
      Color := TColor(ReadInteger('FormOptions', 'Color', clNormalBackground));
      Caption := ReadString('FormOptions', 'Caption', 'Main');
  end;
  MyIniFile.Free;
 
end;

Écriture d'un fichier INI

This example reads the Transfer section of the myapp.ini file into a memo and changes one of the strings in the INI file when Button1 is clicked. When Button2 is clicked, the myapp.ini file is restored to its initial state, using the values stored in the memo.
Before you run this example, you must add the IniFiles unit to the uses clause of your unit.

Warning: Do not click button2 before you have clicked button1!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
procedure TForm1.Button1Click(Sender: TObject);
 
var
  MyIniFile: TIniFile;
  begin
  MyIniFile := TIniFile.Create('myapp.ini');
  Memo1.Clear;
  MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
  if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
    MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
  MyIniFile.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
var
  MyIniFile: TIniFile;
  begin
 
  MyIniFile := TIniFile.Create('myapp.ini');
 
  { if the entry wasn’t there before, delete it now }
  if Memo1.Lines.Values['Title1'] = '' then
    MyIniFile.DeleteKey('Transfer', 'Title1')
  { otherwise, restore the old value }
  else
    MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
  MyIniFile.Free;
end;

Tout ça, c'est dans l'aide de mon Delphi 7. C'est fou ce que la touche F1 peut contenir comme infos

[chmaichel]

dans la mienne il y a rien ......
c'est fou quand on a pas la bonne version de delphi..................

[denokan]

il reste toujours la FAQ et