También puedes ir acumulando y contando los valores válidos en la variable x y en otra variable contador:
Código Delphi
[-]
procedure TPromediometal.Button2Click(Sender: TObject);
var
c1,c2,c3,c4,c5,c6: integer;
aux: real;
x: real;
contador : integer;
begin
x := 0;
contador := 0;
if (TryStrToFloat(Edit1.Text, aux)) then
begin
x := x + aux;
contador := contador + 1;
end;
if (TryStrToFloat(Edit2.Text, aux)) then
begin
x := x + aux;
contador := contador + 1;
end;
[...]
if (contador <> 0) then
begin
x := x / contador;
[...]
end
else
begin
[...]
end;
end;
PD: Te he resuelto la taréa, solo porque veo que haz puesto empeño. (Hay otra gente que viene con el enunciado y espera que le des una función terminada y probada)
De todos modos, te veo un poco verde en el manejo de los componentes visuales y sus eventos (Edits, Botonoes, etc.).
Deberías leer un poco más sobre el tema.
Sigue practicando y diviértete mucho con Delphi![/quote]
mil gracias lo hice igual pero al momento de correrlo me marca un error en if (TryStrToFloat(edit1.text, aux)) then en ,aux) aqui me lo marca que puede ser muchas gracias por la ayuda.
Nota: me sale esto there ins no overloaded version of 'trystrtofloat' that can be caller with these arguments