Fórum como guardar variaveis tipo float nessas condiçoes? #231573
12/05/2004
0
Ola amigos progamadores, estou com uma dificuldade em armazenar variaveis tipo float(é para guardar graduação + e - com 2 casas decimais apos a virgula) e retornar para usuario conforme ele guardou.Estou usando esse tipo de codigo para armazenar e em um determinado ponto preciso que retorne assim
Ex:
+1,75 ; -1,50 ; 0,00 ; 12,00 ; -10,50 ....
e assim por diante, o que acontece é que eu preciso que retorne o valor na tela com esse tipo de escrita; uma parte do codigo é esta..
Desde ja agradeço a atenção e colaboração dos amigos de plantão!!
Um abraço!!
Ex:
+1,75 ; -1,50 ; 0,00 ; 12,00 ; -10,50 ....
e assim por diante, o que acontece é que eu preciso que retorne o valor na tela com esse tipo de escrita; uma parte do codigo é esta..
function pesquisa(numero:integer):boolean;
var
achou: boolean;
begin
achou:= false;
seek(arquivo,1);
while(not eof(arquivo)) and (not achou) do
begin
read(arquivo,dado);
achou:= (numero = dado.cod) and (dado.flag <> ´*´);
end;
seek(arquivo,filepos(arquivo)-1);
pesquisa:= achou;
end;
procedure tform1.salvaregistro;
begin
dado.flag:= ´ ´;
if edit1.text = ´´ then
edit1.text:=´0,00´;
dado.od1 := strtofloat(edit1.text);Desde ja agradeço a atenção e colaboração dos amigos de plantão!!
Um abraço!!
Feiopaurso
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)