Delphi (XE) Valori numerici

[camaleonteplus]

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

con questo codice riesco ad ottenere solo risultati tipo 1,2 ma il codice effettua un calcolo di un valore più piccolo tipo 0,044 ma non riesco a ottenere tale valore mi da 0, come configuro questa riga?

Label1.Caption := FormatFloat('#0.##', nDouble);

ho provato diverse varianti ma non sono riuscito a trovare la soluzione.

La parola agli esperti.

[oregon]

Prevedi che anche X, Y siano variabili di tipo Double.

E se devi vedere 3 decimali devi prevedere 3 cifre dopo la virgola nel formato

[camaleonteplus]

Prevedi che anche X, Y siano variabili di tipo Double.

E se devi vedere 3 decimali devi prevedere 3 cifre dopo la virgola nel formato

Label1.Caption := FormatFloat('###0.###', nDouble);

ho fatto cosi ma non va.

[oregon]

Come ti avevo già scritto


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

[camaleonteplus]

Come ti avevo già scritto


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

No ho cambiato cosi:

procedure Tresc1.Button2Click(Sender: TObject);
var
X:REAL;
K,A,Y,Z:INTEGER;
S:STRING[10];
begin
  VAL(lmm.text,A,Z);
  VAL(Materiale.Caption,Y,Z);
  VAL(smm.text,K,Z);
  X:= (Y * (A / (K * K)));
  STR(X:10:2,S);
  Label1.Caption := S;
end;

ma nenche va bene.

[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.