Mon programme est celui ci :
unit travian1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Math;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
A:integer=(-60);
B:integer=(-15);
C:integer=(-10);
D:integer=10;
E:integer=6;
F,G,H: Double;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
F:=(B-D)/E;
G:= (A-C)/E ;
if (F<0) then
F:=(-F);
if (G<0) then
G:=(-G);
H:=G+F;VOICI "H"
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
QU'EST CE QUE JE MET LA DEDANS POUR AFFICHER H
end;
end.
Lorsque j'appuie sur Button1, dans la fenetre EDIT1 je veux voir apparaitre la valeur de H.
Comme un printf("%f",H) en C.