Discussion :

[lerouzes]

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 :

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

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

[Stef_D]

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

Code :

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

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

par

Code :

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

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

bien sur faut le faire partout

[HumanTool]

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....)

[Graffito]

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 :

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

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