Fórum EconvertError #592659

Erro de conversão de um valor vazio para inteiro. Verifique se não está tentando converter uma string vazia.

Se não conseguir, poste como está seu código para analisarmos.

Essa parte ja resolvi mas aparece um erro na tela assim '| Masculino' is not a valid floating point value. quando eu coloco meu programa pra ler.
segue o codigo

var
Cadastro_e_IMC_frm: TCadastro_e_IMC_frm;

var arq: TextFile;

implementation

{$R *.dfm}

procedure TCadastro_e_IMC_frm.BitBtn1Click(Sender: TObject);
begin
if ((edNome.Text <> '') and (edsexo.Text <> '') and
(edalt.Text <> '') and (edpes.Text <> ''))
then begin
Writeln(arq, edNome.Text, ' | ', edsexo.Text, ' | ',
edalt.Text, ' | ', edpes.Text, ' | ');
edNome.Clear;
edsexo.Clear;
edalt.Clear;
edpes.Clear;
end;
end;

procedure TCadastro_e_IMC_frm.BitBtn2Click(Sender: TObject);
var
linha, nome: string;
nreg, i: integer;
alt, pes, imc: real;
sexo: extended;
begin
Memo1.Clear;

Reset(arq);

nreg := 0;

while (not Eof(arq)) do
begin
Readln(arq, linha);

nreg := nreg + 1;

i := pos(' | ', linha);
Nome := copy(linha, 1, i-1);
delete(linha, 1, i);

i := pos(' | ', linha);
Sexo := StrToFloat(copy(linha, 1, i-1));

i := pos(' | ', linha);
Alt := StrToFloat(copy(linha, 1, i-1));
delete(linha, 1, i);

i := pos(' | ', linha);
Pes := StrToFloat(copy(linha, 1, i-1));

i := pos(' | ', linha);
IMC := StrToFloat(copy(linha, 1, i-1));
delete(linha, 1, i);

alt := sqr(alt);
IMC := pes/alt;
Memo1.Lines.Add('Registro Nro.: ' + IntToStr(nreg));
Memo1.Lines.Add('Nome..........: ' + nome);
Memo1.Lines.Add('Sexo..........: ' + FloatTostr(Sexo));
Memo1.Lines.Add('Altura(m).....: ' + FloatToStr(Alt));
Memo1.Lines.Add('Peso(kg)......: ' + FloatToStr(Pes));
Memo1.Lines.Add('IMC...........: ' + FloatToStr(IMC));

if (IMC < 16)
then Memo1.Lines.Add('Situação......: Magreza grave')
else if ((IMC >= 16) and (IMC < 17))
then Memo1.Lines.Add('Situação......: Magreza moderada')
else if ((IMC >= 17) and (IMC < 18.5))
then Memo1.Lines.Add('Situação......: Magreza leve')
else if ((IMC >= 18.5) and (IMC < 25))
then Memo1.Lines.Add('Situação......: Saudável')
else if ((IMC >= 25) and (IMC < 30))
then Memo1.Lines.Add('Situação......: Sobrepeso')
else if ((IMC >= 30) and (IMC < 35))
then Memo1.Lines.Add('Situação......: Obesidade Grau I')
else if ((IMC >= 35) and (IMC < 40))
then Memo1.Lines.Add('Situação......: Obesidade Grau II (severa)')
else if (IMC > 40)
then Memo1.Lines.Add('Situação......: Obesidade Grau III (mórbida)');
end;

CloseFile(arq);
Append(arq);
end;

procedure TCadastro_e_IMC_frm.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TCadastro_e_IMC_frm.edaltKeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['.', ','])
then if (pos(',', (Sender as TEdit).Text) = 0)
then Key := ','
else Key := #7
else if not(Key in ['0'..'9',#8]) then Key := #0;
end;
procedure TCadastro_e_IMC_frm.edpesKeyPress(Sender: TObject; var Key: Char);
begin
if (Key in[])
then if (pos(',', (Sender as TEdit).Text) = 7)
then Key := ','
else Key := #7
else if not(Key in ['0'..'9',#8]) then Key := #7;
end;

procedure TCadastro_e_IMC_frm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
CloseFile(arq);
end;

procedure TCadastro_e_IMC_frm.FormShow(Sender: TObject);
begin
AssignFile(arq, 'C:\\Users\\Claudinho\\Desktop\\Cadastro de Parciente e IMC\\Cadastro_de_Paciente_e_Calculo_do_IMC.txt');
Reset(arq);
if (IOResult <> 0)
then Rewrite(arq)

else begin
CloseFile(arq);
Append(arq);
end;
end;

end.

ja estou doido pq o nome, altura, peso, imc e a situação do imc aparece no memo mas o sexo nao