Fórum Separar um campo no dbase #178868
01/09/2003
0
Oi Pessoal!
Tenho um arquivo de alunos no dbase e as notas estão lançadas em um mesmo campo ( 6.7 4.5 7.8 9.4) este campo está com alfanumérico. então fiz o seguinte para obter a média:
var
Notas : String;
Nt1, Nt2, Nt3, Nt4, Med : Real;
Begin
Notas := Table1Nota.AsString;
Edt1.Text := Copy(Notas,1,4);
Edt2.Text := Copy(Notas,5,4);
Edt3.Text := Copy(Notas,9,4);
Edt4.Text := Copy(Notas,13,4);
Nt1 := StrToFloat(Edt1.Text);
Nt2 := StrToFloat(Edt2.Text);
Nt3 := StrToFloat(Edt3.Text);
Nt4 := StrToFloat(Edt4.Text);
Med := (Nt1+Nt2+Nt3+Nt4)/4;
Edt5.Text := FloatToStr(Med);
Quando rodo o programa recebo aquela mensagem maneira ´ 8.7´ is not a valid floating point value ( 8.7 é uma nota do campo nota). Porque não consigo converter estes campos?
Valeu!!
Vladimir
Tenho um arquivo de alunos no dbase e as notas estão lançadas em um mesmo campo ( 6.7 4.5 7.8 9.4) este campo está com alfanumérico. então fiz o seguinte para obter a média:
var
Notas : String;
Nt1, Nt2, Nt3, Nt4, Med : Real;
Begin
Notas := Table1Nota.AsString;
Edt1.Text := Copy(Notas,1,4);
Edt2.Text := Copy(Notas,5,4);
Edt3.Text := Copy(Notas,9,4);
Edt4.Text := Copy(Notas,13,4);
Nt1 := StrToFloat(Edt1.Text);
Nt2 := StrToFloat(Edt2.Text);
Nt3 := StrToFloat(Edt3.Text);
Nt4 := StrToFloat(Edt4.Text);
Med := (Nt1+Nt2+Nt3+Nt4)/4;
Edt5.Text := FloatToStr(Med);
Quando rodo o programa recebo aquela mensagem maneira ´ 8.7´ is not a valid floating point value ( 8.7 é uma nota do campo nota). Porque não consigo converter estes campos?
Valeu!!
Vladimir
Vcahy
Curtir tópico
+ 0
Responder
Posts
01/09/2003
Bacalhau
O problema é que pões o valor 4 no copy, quando deveria ser 3.
O valor ocupa só 3 posições (dois algarismos e o ponto). Com o valor 4 lês também o espaço, o que dá bronca
abraço
bacalhau
O valor ocupa só 3 posições (dois algarismos e o ponto). Com o valor 4 lês também o espaço, o que dá bronca
abraço
bacalhau
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)