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;