uses math;


procedure TForm1.Button1Click(Sender: TObject);
var
v, c, r1, r2, rt, val: integer;

begin

v:= strtoint (edit1.Text);  ///////////////////     valeur  12
c := strtoint (label11.Caption); //////////////    valeur 5000
r1:= strtoint(edit3.text);   /////////////////       valeur 10000
r2 := strtoint(edit4.Text);   /////////////////      valeur  5000
rt:= r1+r2;                       /////////////////       calcul 5000 + 10000 = 15000 
 label15.Caption:= inttostr (rt);   //////////     affiche bien 15000 ok parfait


val:= v *(c div rt);  ////////// retourne zero au lieu de 4  ???????

label12.Caption:= inttostr (val); ///////////////    affiche zero dans le résultat label 12
end;

 
TPiece = class(TPath)
public
    positionxy: tpoint;
    sens: integer;
    placerok: boolean;
  end;

 
     NewPiece := TPiece.Create(self);
         NewPiece.parent:=form1.Layout1;
         newpiece.Name:='P'+inttostr(lenum);
         newpiece.Tag:=lenum;
         NewPiece.Data.Data :=forme[lenum] ;

 
unit Unit1;
 
interface
 
uses
 
  System.SysUtils, System.UIConsts, System.Types, System.UITypes,
  System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Memo.Types, FMX.ScrollBox,
  FMX.Memo,
  FMX.Edit, FMX.EditBox, FMX.NumberBox, System.Math, System.Math.Vectors,
  FMX.Layouts, System.Actions, FMX.ActnList, FMX.Media, mmsystem, FMX.ComboEdit,
  FMX.Colors,FMX.Surfaces;
 
 
 
 
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Memo1: TMemo;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
 
    procedure ImageLoadFromFile(filename: string; MyImage: TImage);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
procedure TForm1.ImageLoadFromFile(filename: string; MyImage: TImage);
var
  bmp: fmx.graphics.tbitmap;
  astream: tmemorystream;
  surface: tbitmapsurface;
begin
  bmp := FMX.Graphics.TBitmap.Create;
  bmp.LoadFromFile(filename);
  astream:=tmemorystream.Create;
  surface:=tbitmapsurface.Create;
  surface.Assign(bmp);
  try
    tbitmapcodecmanager.SaveToStream(astream,surface,'bmp');
    astream.Seek(0,tseekorigin.soBeginning);
    MyImage.bitmap.LoadFromStream(astream);
  finally
    astream.free;
    bmp.free;
    surface.free
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
filen:string;
begin
 
filen:='carte.jpg';
Form1.ImageLoadFromFile(filen,form1.Image1);
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
 
var
  vBitMapData : TBitmapData;
  PixelColor : TAlphaColor;
  xx,yy:integer;
 
begin
xx:=round(x);
yy:=round(y);
 
image1.Bitmap.Map(TMapAccess.Read, vBitMapData) ;
 PixelColor := vBitMapData.GetPixel(xx,yy);
 image1.Bitmap.Unmap(vBitMapData);
 Memo1.Lines.Add('======================');
 memo1.Lines.Add(' Colour=' + IntToStr(pixelcolor)
                  + ' Red='    + IntToStr (TAlphaColorRec(PixelColor).R) // red
                  + ' Green='  + IntToStr (TAlphaColorRec(PixelColor).G) // blue
                  + ' Blue='   + IntToStr (TAlphaColorRec(PixelColor).B) // green
                  )  ;
end;
end.

Fdtransaction1.StartTransaction;
// Requete SQL
FdQuery.Sql.Text := 'Insert into Tclient (c1,c2c,c3) values ("N1","CLIENT 1 ","ADR1")';
Try
 FdQuery.ExecSql;
 FdTransaction1.Commit;
Except on E:Exception do
   Begin
    Showmessage('Erreur Mise à jour '+E.Message); 
End;
End;