donner une action d'une item de comboboxRésolu

Question

Bonjour a tous et a toutes,

je continue a travailler sur le fonctionnement du patch alors j'aimerais savoir si il est possible de recuperer 'l'item' que j'ai selectionnais dans le combobox pour lui faire effectuer une action,par exemple:

Combobox1.Items.Text :=  'example' +#13+
                                         '0tester'+#1+
                                         '1cool';

si je selectionne par exemple  'cool'  j'aimerais que l'action que je lui donne soit:

var FB : File Of Byte;
      b : Byte;

begin
     assignfile(FB , label1.caption);   //Il recupere se qu'il y a dans le label
      Reset(FB);        b : $90;                         //90 nop a l'offset 00066C37!
       seek(FB,$00066C37);        //offset ou il modifie le bit c'est  dire 90
   Write(FB,b);                   // Puis il écrit et
closefile(FB);                //il ferme

voila je sais pas si c'est possible,mais je prefere vous demandez votre avis 

merci pour tout,

bonne journee.

('Le nombre de touches frappées pour fairemarcher un programme mal écrit peut être supérieur à celui nécessairepour le réécrire proprement.
 Mais on ne va pas jeter ce qu'on a déjà écrit...');

japee · Accepted Answer

Salut,

Plusieurs possibilités (au moins...) :

if ComboBox1.Text = 'cool' then
begin
  //... le code correspondant à "cool"
end;

ou bien :

if ComboBox1.Items[ComboBox1.ItemIndex] = 'cool' then
begin
  //... le code correspondant à "cool"
end;

encore mieux :

case ComboBox1.ItemIndex of
  0:
  begin
    //... le code correspondant à "exemple" ici
  end;
  1:
  begin
    //... le code correspondant à "tester" ici
  end;
  2:
  begin
    //... le code correspondant à "cool" ici
  end;
end;

et le code retour chariot c'est  #13#10

Bonne prog'

hackeur13 · Answer

Merci 1000 fois pour ton aide 

la 2 eme solution que tu ma donne est la meilleur pour moi!

alors merci encore japee.

('Le nombre de touches frappées pour fairemarcher un programme mal écrit peut être supérieur à celui nécessairepour le réécrire proprement.
 Mais on ne va pas jeter ce qu'on a déjà écrit...');

hackeur13 · Answer

j'aurais une derniere question qui a pas de rapport avec le combobox

enfaite j'ai essayer de changer 
b:$90
par
b:$75c0
mais sa ne marcher pas alors j'ai essayer avec la valeur w : word
w:$75c0
le programme se compile mais sa ne marche toujours pas
es qu'il y aurais une autre maniere japee?

merci d'avance.

('Le nombre de touches frappées pour fairemarcher un programme mal écrit peut être supérieur à celui nécessairepour le réécrire proprement.
 Mais on ne va pas jeter ce qu'on a déjà écrit...');

Guillemouze · Answer

essaye de passer par 2 bytes :

begin
     assignfile(FB , label1.caption);   //Il recupere se qu'il y a dans le label
      Reset(FB);
       seek(FB,$00066C37);        //offset ou il modifie le bit c'est  dire 90
   Write(FB,$75);                   // Puis il écrit et
    Write(FB,$00);
closefile(FB);

attention, verifie bien que tu veux ecrire $7500 ou jusqu'al'offset en question

hackeur13 · Answer

il me fait une erreur
"Variable required"
es que tu aurais une autre idees?car j'ai essayer plusieur maniere mais sa ne abouti pas.

('Le nombre de touches frappées pour fairemarcher un programme mal écrit peut être supérieur à celui nécessairepour le réécrire proprement.
 Mais on ne va pas jeter ce qu'on a déjà écrit...');

Guillemouze · Answer

"le programme se compile mais sa ne marche toujours pas" " il me fait une erreur "Variable required" " qu'est ce qui ne marche pas? ou il te met l'erreur? je trouve que tu n'est vraiment pas explicite et precis hackeur !!! ca donne pas vraiment envie de t'aider ... mais bon, j'vais le faire quand meme 2 possibilites:

passer en word

var FB : File Of Word; w : Word; begin assignfile(FB , label1.caption); Reset(FB); seek(FB,$00066C37); w := $c075; //il faut inverser l'ordre (je sais pas pourquoi) Write(FB, w ); closefile(FB); end;

faire des ecritures successives

var FB : File Of Byte; b : Byte; begin assignfile(FB , label1.caption); Reset(FB); seek(FB,$00066C37); b : = $75; Write(FB,b); b := $c0; Write(FB,b); closefile(FB); end;

Donner une action d'une item de combobox

6 réponses

Votre réponse

Discussions similaires