Delphi (XE) Valori numerici

[oregon]

Ma perché non vuoi seguire il consiglio che ti ho dato? Non lo capisco ...

[camaleonteplus]

Ma perché non vuoi seguire il consiglio che ti ho dato? Non lo capisco ...

Ma ho tolto il Double ho fatto cosi pensando che era questo il tuo suggerimento.

[oregon]

Ma ho tolto il Double ho fatto cosi pensando che era questo il tuo suggerimento.

Ti ho scritto "Prevedi che anche X, Y siano variabili di tipo Double."

Da cosa capisci che ti consiglio di togliere il double?? Anzi, al contrario, ti consiglio di usarlo anche per X e Y !!

[camaleonteplus]

Ti ho scritto "Prevedi che anche X, Y siano variabili di tipo Double."

Da cosa capisci che ti consiglio di togliere il double?? Anzi, al contrario, ti consiglio di usarlo anche per X e Y !!

Scusa ho capito male, come sostituisco la x e y con Double? Mi dai una mano?

[camaleonteplus]

procedure Tresc1.Button2Click(Sender: TObject);
var
X,Y,Z:INTEGER;
S:STRING[10];
nDouble, xDouble, yDouble: Double;
begin
  nDouble := StrToFloatDef(smm.text, 0);
  xDouble := StrToFloatDef(lmm.text, 0);
  yDouble := StrToFloatDef(Materiale.Caption, 0);
  nDouble := yDouble * (xDouble / (nDouble * nDouble));
  STR(X,S);
  Label1.Caption := FormatFloat('#0.##', nDouble);
end;

Ecco adesso funziona grazie.