Qui pourrait corriger ce code?

Question

bonjour à tout le monde, voilà j'ai un code qui ne marche pas partiellememt, j'ai essayé de remedier à cela mais sans résultat. Alors je fais appel à vous pour m'aider en vous remerciant d'avance; voici mon code: procedure TForm1.AjouterClick(Sender: TObject); var listitem:Tlistitem; begin listitem:= listview1.Items.Add; listitem.Caption:=combobox1.Text; listitem.SubItems.Add(edit1.Text); listitem.SubItems.Add(edit2.Text); listitem.SubItems.Add(combobox2.Text); combobox1.ItemIndex:=-1; edit1.Text:=''; edit2.Text:=''; combobox2.ItemIndex:=-1; end; procedure TForm1.EffacerClick(Sender: TObject); begin listview1.DeleteSelected; end; procedure TForm1.Afficherleselements(sender:TObject); begin if listview1.RowSelect then combobox1.Text: =listview1.Selected.Caption; edit1.Text:= listview1.Selected.SubItems[1]; edit2.Text:=listview1.Selected.SubItems[2]; combobox2.Text:=listview1.Selected.SubItems[3]; end; procedure TForm1.ModifierClick(Sender: TObject); begin end; end. le dernière procedure consiste à corriger après avoir afficher les elements de la listview avec le bouton Modifier Merci pour tout

jmp77 · Answer

Hello,



Et qu'est qui ne fonctionne pas?

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_fouroulou · Answer

j'ai des doutes sur la procedure Afficherleselements

merci

florenth · Answer

Salut, A mon avis, il manque un begin...end apèrs ton if dans la procédure que tu mentionne. Voila ce que cela donnerait:

procedure TForm1.AfficherLesElements(Sender: TObject); begin if ListView1.RowSelect then begin // ici. ComboBox1.Text: =ListView1.Selected.Caption; Edit1.Text:= ListView1.Selected.SubItems[1]; Edit2.Text:=ListView1.Selected.SubItems[2]; ComboBox2.Text:=ListView1.Selected.SubItems[3]; end ; // et là. end;

Sinon, est tu sûr que cela est ListView1.Selected.SubItems[1] , [2], [3] et non pas 0, 1 , 2 ?? Nomme tes composants sinon tu vas t'y perdre, ce serait même sûrement plus simple pour nous de t'aider si tu le faisait. Voila pour ce qui me saute aux yeux. @ ++ Florent Si tu ne te plantes pas ...... tu ne poussera jamais

Qui pourrait corriger ce code?

3 réponses

Votre réponse

Discussions similaires