messaggio econvertitor

[gianpa]

perchè quando lancio il programma e provo una divisione mi dice che 10,00 non è un float valido
l'ho dichiarato come currency e ho appurato che è compatibile con strToFloat !!!
il currency non è un valore decimale ?


ciao e grazie in anticipo!!!

[nomorelogic]

puoi postare codice e messaggio d'errore?

così non è facile, viene solo da chiedere se hai scritto il numero con la virgola anziché col punto

[gianpa]

sì il numero è scritto con la virgola !
però io ho inserito i dati nel database usando sqliteAdmin ; io ho messo solo il 10 e quando salvo viene visualizzato così: 10,00 !

ciao

[nomorelogic]

immagino che l'altro topic si riferisca allo stesso problema
comunque:
se hai inserito un valore in un database con sqliteAdmin e l'istruzione è andata a buon fine, vuol dire che nel database il valore è giusto.

probabilmente nell'interrogare il database ti viene restituito formattato con la virgola

[gianpa]

mi spiego:
se ho una variabile spesa:currency;
quando cerco di usare la conversione strToFloat:
spesa:=strtofloat(dbedit1.Text);

mi dice che 10,00 che si trova nel dbedit1 non è un valore FLOAT valido e mi genera un'eccezione!

ciao

[nomorelogic]

nella proprietà Text del TDbEdit ci trovi il numero formattato con le regole della localizzazione: cioè con il separatore decimale che è a virgola.
dovresti valorizzare 'spesa' con il valore contenuto nel campo del dataset, lo stesso campo che è specificato in TDbEdit e che gli da il valore.

Se devi usare il valore inText, devi prima convertire la "," in "." e poi usi StrToFloat, ma l'approccio giusto è quello sopra.

[gianpa]

valorizzare spesa in che modo ? usando editMask ?
esiste una proprietà che assegna al dbEdit un formato predefinito ?

oppure intendevi altro ?

ciao

[gianpa]

veramente ho già provato e vedo che quello che intendevo io non si può fare perchè gestito dal campo abbinato al db : è già vincolato al tipo di dato e non mi lascia inserire un valore di 10.00 ,ma solo 10 e poi mette la virgola oppure 10,00 che accetta così

ciao

[gianpa]

secondo voi se cambio il valore del campo da currency a FLOAT non otterrei più quel problema ?

ciao

[nomorelogic]

non credo cambi molto

devi valorizzare la variabile "spesa" leggendo il valore da: dataset.nomecampo.Asfloat

[gianpa]

allora io ragionavo così : per fare le operazioni che mi interessano tra i vari campi del dataset trasformo la stringa contenuta nella casella in FLOAT (spesa1:=strtofloat(dbedit1.Text) quindi penso di usare un float ! quando invece faccio ad es. l'operazione spesa1+spesa2=spesaTotale
l'eccezione mi dice che quel 10,00 che trova in dbedit1 non è un float valido!
è sicuro che sbaglio qualcosa IO ,il computer esegue e basta, ma non riesco a capire cosa !?

ciao e grazie per la pazienza!
p.s.:per evitare di riscrivere tutto ho copiato un po' di codice dal mio progetto in delphi dove avevo già lavorato parecchio per far funzionare il tutto e mi aspettavo che andasse bene anche in lazarus!
c'è qualcosa che mi sfugge...forse è nel diverso db!!!!!!!

[nomorelogic]

allora:

in TDBEdit.Text c'è un valore (o meglio la rappresentazione in stringa di un valore) perchè hai una proprietà DataSource che è collegata ad una query su un database. Non solo: c'è anche l'indicazione di quale campo del dataset deve fornire il valore al TDBEdit.

Quindi non devi fare:
spesa1:=strtofloat(dbedit1.Text)
ma
spesa1:=dataset.fieldname.AsFloat

[gianpa]

il mio dbEdit1 noin ha una proprietà "text" ,ma solo una "datafield" !
indicare il dataset mi riusciva immediato in delphi ,ma ora in lazarus mi trovo in difficoltà !!!
infatti non riesco a indicarlo in nessun modo ... lo identifico come la tabella che uso?
nell'object inspector non lo trovo in alcun componente ;
se sostituisco pari pari le due espressioni di SPESA1 mi trovo subito nel classico errore di identifier not found (ovvio)

mi sento perso in un bicchiere d'acqua e sì che mi DIVERTO a programmare dal turbo pascal al delphi2007 ,non da ieri

ciao e grazie per la pazienza

[nomorelogic]

prova

Codice: [Seleziona]

spesa1 := DBEdit1.Datasource.DataSet.FieldByName(DBEdit1.FieldName).AsFloat;

[gianpa]

ho messo :
DBEdit1.Datasource.DataSet.FieldByName(DBEdit1.DataField).AsFloat;

per identificare il nome del campo perchè fieldname non lo riconosce e non ammette il nome del campo della mia tabella (costo1)

però ,pur funzionando,mi ritorna lo stesso errore che mi dava all'inizio perchè forse i metodi si equivalgono ma quando trova il valore 10,00 (o altro con la virgola) mi dice "10,00 is an invalid float"

ciao