Discussion :

[mon-adc]

bonjour
debutant dans la programmation delphi j'obtient une erreur de compilation
operateur ou point virgule manquant avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
Aire: Single;
AireDisque: Single;
ChaineAire: String;
begin
ShowMessage('Salut !');
Aire := AireDisque(3.2);
ChaineAire := FloatToStr(Aire);
ShowMessage(ChaineAire);
end;
end.

c'est un copier coller venant d'un tuto dedié a delphi 6
je ne comprend pas ??
merci de votre aide
mon-adc

[ShaiLeTroll]

personnellement, je ne comprends pas ça

Code :

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

Aire := AireDisque(3.2);

AireDisque devrait être une fonction et non un var, tu as vraiment copié coller ?!

[Caribensila]

Salut,

bonjour
debutant dans la programmation delphi j'obtient une erreur de compilation...

Eh bien, tu vas vite comprendre qu'il y a des jours où le compilo de Delphi n'est pas très coopératif...

Et pour le compilo, il y a des jours tous les jours.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function AireDisque(Rayon: Single): Single;
begin
  Result := PI * Rayon * Rayon;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Aire: Single;
  ChaineAire: String;
begin
  Aire := AireDisque(3.2);
  ChaineAire := FloatToStr(Aire);
  ShowMessage(ChaineAire);
end;

Courage !

[mon-adc]

La solution n’était pas dans le tuto ou alors j'ai mal compris
il manque dans le unit principal dans le uses la déclaration de la fiche calculq contenant la fonction de calcul
Merci de vos réponses

mon-adc