Discussion :

[Invité]

salut à tous,

vous avez passé un bon week-end ?

me revoilà avec mille-et-une questions...

une facile et toute bête pour commencer la semaine :
ces 2 codes sont-ils équivalents (ici seul le var Key: char change de position) ?

Code :

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

1
2
3
4
5
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: char);
begin
if not (Key in [#48..#57]) then
Key:=#0
end;

et

Code :

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

1
2
3
4
5
6
procedure TForm1.Edit2KeyPress(Sender: TObject);
var Key: char
begin
if not (Key in [#48..#57]) then
Key:=#0
end;

[Pedro]

ces 2 codes sont-ils équivalents (ici seul le var Key: char change de position) ?

Non ils ne sont pas équivalent. Le premier est un paramètre variable de la procédure, le second est une variable locale à cette procédure.