unit Form1_;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ImgList, ToolWin, ExtCtrls, CheckLst, Menus,
ActiveX, Buttons, VBto_Converter;

type
TForm1 = class(TForm)
iblSaisie: TLabel;
TxtSaisie: TEdit;
cmdCalculer: TButton;
mMainMenu1: TMainMenu;
frmexercice03: TMenuItem;

procedure cmdCalculerClick(Sender: TObject);
procedure cmdQuitter_Click();
procedure TxtSaisieKeyPress(Sender: TObject; var Key: char);

private
{ Private declarations }

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

//===============================================
==========
procedure TForm1.cmdCalculerClick(Sender: TObject);
var
n, Somme: Double;
begin
//{$DEFINE def_cmdCalculer_Click}
{$IF Defined(def_cmdCalculer_Click)}
n := Val(TxtSaisie.Text);
Somme := n*(n+1)/2;
TxtAffichage.Text := 'La somme est '+FloatToStr(Somme);
{$IFEND} // def_cmdCalculer_Click
end;

procedure TForm1.cmdQuitter_Click();
begin
//{$DEFINE def_cmdQuitter_Click}
{$IF Defined(def_cmdQuitter_Click)}
Application.Terminate();
{$IFEND} // def_cmdQuitter_Click
end;

procedure TForm1.TxtSaisieKeyPress(Sender: TObject; var Key: char);
begin
//{$DEFINE def_TxtSaisie_KeyPress}
{$IF Defined(def_TxtSaisie_KeyPress)}
// Autorise seulement la saisie de chiffres
if KeyAscii<48 or KeyAscii>57 then begin
KeyAscii := 0;
Beep();
end;
{$IFEND} // def_TxtSaisie_KeyPress
end;

end.

Quelqu'un pourrait il me dire où mon code pose problème , je me fais ce petit programme pour débuter

Qu'est ce que ce code est cense faire? Qu'est ce qui ne marche pas?

Ce programme calcule le nombre d'entier entre 1 et le chiffre que tu rentres par exemple 100.

n, Somme: Double;

là il me dit la variable n est déclarée mains jamais utilisée dans Tform1.cmdcalculClick

idem pour la variable somme

Personne