Delphi (XE) Valori numerici

[oregon]

Mi sembrava di avere risposto in italiano ...

Comunque, a questo punto, se usi altre variabili, la riga

X,Y,Z:INTEGER

non serve più ... e anche quelle

S:STRING[10];

e

STR(X,S);


non hanno molto senso ...

[camaleonteplus]

Mi sembrava di avere risposto in italiano ...

Comunque, a questo punto, se usi altre variabili, la riga

X,Y,Z:INTEGER

non serve più ... e anche quelle

S:STRING[10];

e

STR(X,S);


non hanno molto senso ...

Grazie sei stato utlilissimo ecco il codice ottimizzato:

procedure Tresc1.Button2Click(Sender: TObject);
var
A, B, C: Double;
begin
  A := StrToFloatDef(smm.text, 0);
  B := StrToFloatDef(lmm.text, 0);
  C := StrToFloatDef(Materiale.Caption, 0);
  A := C * (B / (A * A));
  Label1.Caption := FormatFloat('#0.###', A);
end;

[oregon]

Ottimizzato ... direi corretto ... è un codice banale ...