Problème de ComboBox...

Bonjours a tous, je me permets de vous relancer sur un problème pour voir si vous avez la solution.J'ai crée un programme afin d'enregistrer des données de 'ComboBox et Edit' dans un fichier text qui marche bien que vous pouvez voir ci-dessous:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm_Principal.BitBtn_Da1EnregistrerClick(Sender: TObject); var F: TextFile; begin SaveDialog1.Execute;   If SaveDialog1.Execute then begin AssignFile(F,SaveDialog1.FileName); Rewrite(F); Writeln(F,'Nom du décodeur d''accessoire: ',Textbox_Da1Nom.text); Writeln(F,'addresse du décodeur ',ComboBox_Da1Adr.text); Writeln(F,'Données1 ',ComboBox_Da1Temps1.text); Writeln(F,'Données2 ',ComboBox_Da1Temps2.text); Writeln(F,'Données3 ',ComboBox_Da1Temps3.text); Writeln(F,'Données4 ',ComboBox_Da1Temps4.text); Writeln(F,'Données5 ',ComboBox_Da1Temps5.text); Writeln(F,'Données6 ',ComboBox_Da1Temps6.text); Writeln(F,'Données7 ',ComboBox_Da1Temps7.text); Writeln(F,'Données8 ',ComboBox_Da1Temps8.text); CloseFile(F); end; end;

---

A présent j'aimerai créer un programme qui récupére les données du fichier text et qui les remette au bonne endroit.J'ai donc créé ce programme ci:

Code:

---

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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

rocedure TForm_Principal.ButtonOuvrirDAClick(Sender: TObject); var S1: String; S2: String; S3: String; S4: String; S5: String; S6: String; S7: String; S8: String; S9: String; S10: String;   F: TextFile; begin OpenDialog1.Execute;   If OpenDialog1.Execute then begin AssignFile(F,OpenDialog1.FileName); Reset(F); while not EOF(F) do begin Readln(F,S1); Textbox_Da1Nom.Text:=copy(S1,31,20); Readln(F,S2); ComboBox_Da1Adr.Text:=copy(S2,22,3); Readln(F,S3); ComboBox_Da1Temps1.Text:=copy(S3,10,5); Readln(F,S4); ComboBox_Da1Temps2.Text:=copy(S4,10,5); Readln(F,S5); ComboBox_Da1Temps3.Text:=copy(S5,10,5); Readln(F,S6); ComboBox_Da1Temps4.Text:=copy(S6,10,5); Readln(F,S7); ComboBox_Da1Temps5.Text:=copy(S7,10,5); Readln(F,S8); ComboBox_Da1Temps6.Text:=copy(S8,10,5); Readln(F,S9); ComboBox_Da1Temps7.Text:=copy(S3,10,5); Readln(F,S10); ComboBox_Da1Temps8.Text:=copy(S10,10,5);   end; CloseFile(F); end; end;

---

Cependant ce programme remplace bien dans l'Edit mais pas dans les ComboBox.J'ai éssayé en mettant à la place de .Text un .Items.Text mais à ce moment là il remplace les items des Combobox par l'Item enregistré, et enléve tous les items d'avant, donc c'est pas ce que je souhaite.
Donc si vous savez ce qu'il faut mettre pour que le programme remplace l'items selectionné par celui que l'on lit dans le fichier text sans enlever les autres, je suis prenneur...
Merci d'avance.

Si j'ai bien compris ce que tu veux faire, remplaces ton

Code:

---

ComboBox_Da1Temps8.Text:=copy(S10,10,5);

---

par

Code:

---

ComboBox_Da1Temps8.ItemIndex:= ComboBox_Da1Temps8.Items.IndexOf(copy(S10,10,5));

---

bien sur faut le faire partout ;)

salut,
je crois que tu as un "OpenDialog1.Execute" en trop.
Dans "ButtonOuvrirDAClick" :
à la fonction copy on passe la string, l'index de départ dans la string et le nombre de caractère à copier.
Une seule variable string est nécessaire vue qu'elle sera écrasée.

Ensuite peut être qu'il vaut mieux travailler avec les itemindex des combos et pas avec les text (autant au save qu'au read....)

bonjour,

Pour compléter la réponse de Humantools, changer la propriété text des combobox n'a pas d'effet si sa propriété "style" est à "csdropdownlist" ( on ne peut alors pas rentrer d'autres valeurs que celles figurant dans la liste).

Dans ce cas, il faut faire un code tel que :

Code:

---

1 2	j:=combo1.items.indexof(value) ; if j>=0 then combo1.itemindex:=j ;

---