Comment arrêter une procédure, sans en sortir, pour initialiser une variable dans une Listbox ?
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:
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; |
