dbedit con float

[tiberi72]

So che con questa domanda dimostrero' tutta la mia esperienza!!!
Ho un database firebird con una tabella dove ho dichiarato un campo float ed ho inserito il valore 0,15
Quando vado su Lazarus leggo questo valore con un campo DbEdit ma il campo mi propone il valore 0,150000005960465
Cosa mi proponete di fare, e meglio cercare di controllare il valore nell'istruzione SQL della TSQLQuery o inserisco una mask edit sul campo?
Mi potreste aiutare a crearne una che gestisca solo 2 decimali?

[xinyiman]

Hai già visto questo?

http://www.freepascal.org/docs-html/rtl/sysutils/formatfloat.html

[tiberi72]

Chiedo scusa per la mia ingnoranza, ma quindi non c'e' la possibilita' in lazarus di inserire direttamente un campo dbedit associandolo a una qualsiasi formattazione in visualizzazione?
Pensavo ci fosse qualcosa simile all'editmask solo che applicato anche alla visualizzazione e non solo all'edit del campo.
Secondo te posso inserire la funzione formatfloat  in qualche evento del campo dbedit leggendo il campo come se fosse formato da solo 2 decimali?

[xinyiman]

Sull'evento OnExit oppure meglio sull OnChange esegui la formatfloat sul valore del campo! 

[tiberi72]

Chiedo scusa ma ancora non sono riuscito a scrivere correttamente l'istruzione
Premesso che il campo e' un tdbedit gia collegato al rispettivo datafield, sull'evento onchange del campo DbMaut ho scritto:

DbMaut.Field.CurValue=FORMATFLOAT('0,00',DBMAUT.Field.AsFloat); 

Pero' visualizzo ancora il campo con un sacco di decimali

[xinyiman]

Prova a mettere lo stesso codice in OnEnter e in OnExit!

[tiberi72]

Niente, stessa cosa

[Legolas]

Forse è sbagliato il mask. Prova questo:

Codice: [Seleziona]

DbMaut.Field.CurValue=FORMATFLOAT('0.00',DBMAUT.Field.AsFloat);  

[tiberi72]

Non e' cambiato nulla...

[Legolas]

Il mask che ti ho indicato è comunque quello giusto per la formattazione che ti serve. Prova a mettere questo nell'evento onChange del dbedit:

Codice: [Seleziona]

var
  f: double;
begin
  f := StrToFloat(DbMaut.text);
  DbMaut.text := formatfloat('0.00', f);
end;

Tra l'altro la proprietà CurValue dovrebbe essere read-only, quindi non capisco come riesci ad assegnarle un valore senza ottenere errori 

[xinyiman]

Prova ad eseguire questo dopo l'apertura della query

    TFloatField(NomeDatasource.dataset.FieldByName('NomeCampo')).DisplayFormat:='0.00';

E fammi sapere

[tiberi72]

Il mask che ti ho indicato è comunque quello giusto per la formattazione che ti serve. Prova a mettere questo nell'evento onChange del dbedit:

Codice: [Seleziona]

var
  f: double;
begin
  f := StrToFloat(DbMaut.text);
  DbMaut.text := formatfloat('0.00', f);
end;

Tra l'altro la proprietà CurValue dovrebbe essere read-only, quindi non capisco come riesci ad assegnarle un valore senza ottenere errori 

SI, cosi' funziona grazie mille

[xinyiman]

Quale funziona?

[tiberi72]

Quale funziona?

Indendevo la soluzione proposta da legolas
ora provo ad applicare la tua poi ti faccio sapere

[Legolas]

In effetti la mia, anche se funziona, è una "pezza". Non sono molto esperto di database, ma quella di  xinyiman dovrebbe essere più corretta perché agisce a monte del problema