Discussion :

[devoluti0n]

Bonjour !
Je débute en Delphi à l'aide de Borland Delphi 2005.

Je veux commencer par quelque chose qui me servira plus tard, qui est de capter une préssion d'une touche clavier (ici avec getasynckeystate) et simplement d'afficher une Msgbox.

Mon souci c'est que les érreurs suivantes apparaissent :

Code :

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

1
2
3
4
5
 
[Erreur] Unit1.pas(30): E2010 Types incompatibles : 'Boolean' et 'string'
[Erreur] Unit1.pas(34): E2012 Le type de l'expression doit être BOOLEAN
[Erreur fatale] Project1.dpr(5): F2063 Impossible de compiler l'unité utilisée 'Unit1.pas'
[Pascal Erreur] Unit1.pas(1): Impossible d'invoquer l'achèvement de code, du fait d'erreurs dans le code source

et voici mon code

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
31
32
33
34
35
36
37
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
     Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled := 'true'
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
     If (GetAsyncKeyState(VK_RMENU))
-> ligne 34 Then showmessage ('yo')
end;
end.

Je comprends donc pas du tout mes érreurs, que je n'avais jamais rencontrées en Vb .

Merci à ceux qui arriveront à corriger mes érreurs ...
A bientôt !

[droggo]

Lai,

En Delphi, et en Pascal d'une manière générale, les apostrophes limitent un caractère ou une chaîne de caractères.

Donc, quand tu écris

Code :

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

timer1.Enabled := 'true'

par conséquent, 'true' encadré par des apostrophes, est une chaîne de caractères, et tu veux l'affecter à une variable de type boolean.

Le message d'erreur du compilateur t'a dit ce qu'il en était, et tu aurais dû vérifier ton code et les types utilisés dans la ligne en question.
En faisant cela, tu aurais résolu ton problème bien plus vite qu'en attendant une réponse sur un forum, et tu aurais appris quelque chose.

[evarisnea]

remplace juste cette ligne :

Code :

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

timer1.Enabled := 'true'

par ceci :

Code :

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

timer1.Enabled := true;

oh là, devancé par droggo !

[devoluti0n]

Ohla oui, sur ce coup j'ai vraiment été stupide, j'ai beau eu chercher comment fonctionnaient les notations, je n'avait pas vu sa !!

Merci !!

Et quand à l'érreur ligne 34 ??

car la par contre, ce n'est pas un paramètre mais bien uen chaine de caracteres que je veux mettre.
Donc la je suis un peu perdu =) !

rassurez vous le "-> ligne 34" ne fait pas parti du code, s'était pour vous éviter de chercher ^^


j'ai fait l'érreur de m'etre certainement trop habitué au .NET.....

[Cl@udius]

Salut

Quel est le message d'erreur renvoyé concernant la ligne 34 ?

@+ Claudius

[devoluti0n]

Salut

Quel est le message d'erreur renvoyé concernant la ligne 34 ?

@+ Claudius

Comme écrit dans le premier post, il m'est indiqué l'érreur suivante :

"[Erreur] Powertaps.pas(34): E2012 Le type de l'expression doit être BOOLEAN"

Si je ne m'abuse, cela voudrai dire que je doit mettre

Then ShowMessage (yo);

Et il faudrai que je déclare ce qui est entre parentheses ?

[Cl@udius]

Exact j'avais mal lu.

La réponse est que GetAsyncKeyState renvoie une valeur numérique et non booléenne.

GetAsyncKeyState renvoie une valeur différente de 0 si la touche est enfoncée.
Donc ta condition doit se présenter comme ceci:

Code :

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

1
2
 
  If (GetAsyncKeyState(VK_RMENU) <> 0) then ...

@+