Discussion :

[louay02]

bonjour

Comment j'évite les problèmes de décalage lors l'insertion un lien qui contient l'espace dans un fichier INI?

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var Str1,Str2: String;
begin
Str1:=listbox1.Items.CommaText;
Str2:=listbox2.Items.CommaText;
with tinifile.Create('Adresse_IVRs_Ar.Ini') do
begin
writestring('Valeur_Listbox1','Listbox1',Str1);
writestring('Valeur_Listbox2','Listbox2',Str2);
end;

[louay02]

j'evite d'utiliser le fichier InI vers un fichier text

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  listbox1.Items.LoadFromFile('C:\WINDOWS\AR.txt');
end;

et en Close

Code :

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

1
2
3
4
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   listbox1.Items.SaveToFile('C:\WINDOWS\AR.txt');
end;

Merci

[ShaiLeTroll]

Tu parles tout seul ?

Comment j'évite les problèmes de décalage lors l'insertion un lien qui contient l'espace dans un fichier INI?

En français ça donne ?



Tab ou Espace dans un fichier, ce n'est pas toujours la joie, mais cela gère les "" pour résoudre cela

Code :

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

1
2
3
[Section]
KeyI="0123"
KeyS="valeur avec espace"

les "" seront interprété pour récupérer correctement la valeur, c'est ce que je fais lors de la mémorisation de mot de passe chiffré cela contient parfois des caractères qu'il n'aime pas ... et pour éviter tout problème, j'ajoute un encode Base64 mais je conserve les ""

tu ajoutes les "" au WriteString
Le ReadString lui les ignore !

Code c++ :

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
 
{
  TIniFile *Ini = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
  try
  {
    Ini->WriteString("Section", "KeyI", "\"0123\"");
    Ini->WriteString("Section", "KeyS", "\"valeur avec espace\"");
  }
  __finally
  {
    delete Ini;
  }
 
  TIniFile *Ini2 = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
  try
  {
    ShowMessage(IntToStr(Ini2->ReadInteger("Section", "KeyI", -1)));
    ShowMessage(Ini2->ReadString("Section", "KeyS", ""));
  }
  __finally
  {
    delete Ini2;
  }
}