como guardar variaveis tipo float nessas condiçoes?

Delphi

12/05/2004

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

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

Feiopaurso

Curtidas 0
POSTAR