Discussion :

[kikica]

Bonjour,
je suis complètement bloqué sur un problème pourtant simple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
procedure TForm1.FormCreate(Sender: TObject);
var ini:TInifile;
 
begin
  IF NOT( FileExists('C:\monfic.ini') )THEN EXIT;
 
  ini := Tinifile.Create('c:\monfic.ini');
 
    combobox1.Items:=ini.ReadString('pc','', '');
 
   ini.free; 
end;

J'ai toujours l'erreur :

Types incompatibles: Tstring et String

Heee lp!!!

[qi130]

Code :

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

combobox1.Items.Add(ini.ReadString('pc','', ''));

[Lung]

Code :

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

    combobox1.Items.Add(ini.ReadString('pc','', ''));

[kikica]

SUPER!! Merci beaucoup!
Encore une question: J'ai une 100-aine d'enregistrements, et je dois pour chaque enregistremment dans mon fichier ini ecrire par ex:

Code :

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

1
2
3
4
5
6
 
[PC]
sous=abracadabra
sous=bonjour
sous=demain
sous=...etc

Donc, comment faire pour ne pas être oubligé d'écrire "sous=" à chaque fois??
Merci à nouveau.

[Rayek]

Avec un fichier Ini
Pour sauvegarder ta combobox en complet

Code :

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

1
2
3
4
 
for i := 0 to combobox.items.count - 1 do
  Ini.WriteString('PC','sous' + inttostr(i),combobox.items.strings[i]);
Ini.WriteInteger('PC','TotalSous',Combobox.items.count -1);

Après il te reste plus qu'a rappeler de la manière suivante :

Code :

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

1
2
3
4
 
Combobox.items.clear;
for i := 0 to Ini.ReadInteger('PC',TotalSous',0) do
  Combobox.Items.Add(Ini.ReadString('PC','sous' + inttostr(i),''));

Simplement

Pour sauvegarder

Code :

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

1
2
 
Combobox.Items.saveToFile(Chemin + '\NomDufichier.Extension');

Pour récupérer la liste

Code :

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

1
2
 
Combobox.Items.loadfromfile(chemin + '\NomduFichier.extension');

[kikica]

MERCIII BEAUCOUUUP MAAALATAAAARRR!!!