Discussion :

[jeangil]

Bonjour,

Je cherche comment "arréter" une procédure (ou fonction) sans en sortir pour initialiser une variable de type string dans une ListBox, puis "remettre en route" la procédure, une fois ma variable initialisée, ("N" dans mon code joint+ bas).
Un peu comme le feraient : Writeln(' Que vaut la variable : ?'); et Readln(variable);..
Voilà un bout de mon code, j'ai essayé des "tas de choses" mais rien ne marche...

Je ne sais pas si mes explications sont assez "claires" ?

Merci pour votre aide.

Bonne soirée.

Jeangil

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
var
  Form1: TForm1;
 
   var N : string;
 
 
procedure TForm1.ListBox1Click(Sender: TObject);
var i: integer;
begin
 
     N:=listbox1.items.Strings[listbox1.ItemIndex];
end;
 
 
function Fait_en_entree: boolean;
var  P : string;
       Fait : string;
begin
  //...
  P:=' Valeur de N : ?';
  form1.edit1.text := P;
 
  fait := N;
  //...
end;
 
procedure Deduit;
begin
  while Fait_en_entree do
end;

[Jipété]

Yop !

Je cherche comment "arréter" une procédure (ou fonction) sans en sortir pour initialiser une variable de type string dans une ListBox, puis "remettre en route" la procédure, une fois ma variable initialisée, ("N" dans mon code joint+ bas).
Un peu comme le feraient : Writeln(' Que vaut la variable : ?'); et Readln(variable);..
Voilà un bout de mon code, j'ai essayé des "tas de choses" mais rien ne marche...

Je ne sais pas si mes explications sont assez "claires" ?

Non, pas du tout : ce qui me perturbe, c'est l'abus de guillemets, qui nuisent à la compréhension dans la mesure où le fait d'utiliser les guillemets, c'est bien souvent pour changer le sens du mot, alors claires entre guillemets n'a plus le sens de claires. Lequel alors ?
Pareil pour tas de choses qui est parfaitement français et donc tu changes le sens avec tes guillemets : que comprendre ?
Au passage, tu aurais pu nous parler de ces tas de choses essayées, au lieu de nous les laisser deviner (et même pas j'essaie)...

Ces corrections faites, on y verra plus clair. (et pas plus "clair" )

[tourlourou]

Il ne faut pas chercher à interrompre un code procédural pour attendre des événements : il est préférable de réagir aux événements.

Ici, il faudrait sûrement scinder la procédure, et le OnClick du ListBox (affecterait N et) lancerait la procédure avec les instructions suivant la demande d'une nouvelle valeur, et Deduit.

[Andnotor]

Ce n'est pas possible avec une seule fiche.

Les applications graphiques ont une boucle de messages. C'est elle qui reçoit les commandes (ex. clique de souris) et les répartit aux différents composants qui génèrent ensuite leurs propres événements (OnClick de la listbox).
Tout cela est séquentiel (message loop). Si pour une raison quelconque une procédure est suspendue, l'application se fige puisque les messages qu'elle reçoit sont empilés mais jamais traités, c'est le fameux deadlock.

Pour arriver à tes fins, il te faut obligatoirement une deuxième fiche modale et déporter la listbox sur cette dernière. Une fiche modale crée sa propre boucle de messages qui remplace temporairement la principale (celle définie dans TApplication).

[jurassic pork]

hello,

Ce n'est pas possible avec une seule fiche.

je ne serais pas si catégorique : on peut utiliser une boucle où l'on traite les messages des composants avec une temporisation pour permettre de faire autre chose :

exemple :

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
var  Form1: TForm1;
  NSaisie : Boolean;
  N : string;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
  NSaisie := false;
  while not NSaisie   do
  begin
  Application.ProcessMessages;
  Sleep(100);
  end;
  ShowMessage(N);
end;
 
procedure TForm1.ListBox1SelectionChange(Sender: TObject; User: boolean);
begin
  N := TListBox(Sender).GetSelectedText;
  NSaisie := true;
end;

Cette solution n'est pas très propre, il faut mieux utiliser celle de Tourlourou.

Ami calmant, J.P

[Andnotor]

Même si c'est possible dans l'absolu, ce n'est effectivement pas propre du tout.

La temporisation n'a aucun intérêt si ce n'est rendre la main à l'OS mais en tout cas pas "permettre de faire autre chose" dans l'application en cours (à moins qu'elle soit multithreads). Si la liste doit être scroll-ée, ça se fera par saccade...

Dans ton exemple, rien n'interdit non plus de cliquer une deuxième fois sur le bouton ! Il faudra donc le désactiver mais également désactiver tous les composants de la fiche autres que la ListBox.

Bref, une future usine à gaz

[jeangil]

Merci pour tout vos conseils, je vais essayer la solution de Tourlourou...

Bonne fêtes de fin d'année à tous,
(y compris " jipété"... je suis pas rancunier)

Jeangil