Discussion :

[Montor]

je ne sais pas si c'est une retrogradation...petite fonction static sous Delphi7

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
{$j+}
function Static(): Integer;
const
  idx : integer=0;
begin
  result:=idx;
  inc(idx);
end;
{$j-}

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
for i:= 0 to 10 do
     ShowmessageFmt('%d',[Static()]);
 
   {Affichage 0,1,2,3,4,5...}