Types incompatibles: Tstring et String

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

Code:

---

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 :

Citation:

---

Types incompatibles: Tstring et String

---

Heee :arf: lp!!!

Code:

---

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

---

Code:

---

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

---

:wink:

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:

---

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. :lol:

Avec un fichier Ini
Pour sauvegarder ta combobox en complet

Code:

---

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:

---

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:

---

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

---

Pour récupérer la liste

Code:

---

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

---

MERCIII BEAUCOUUUP MAAALATAAAARRR!!! :bravo: :chin: :haha: